qbs* FUNC_GETWORDATCURSOR(){
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 "data374.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{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20462,"ide_methods.bas");}while(r);
do{
*_FUNC_GETWORDATCURSOR_LONG_X=*__LONG_IDECX;
if(!qbevent)break;evnt(25769,20463,"ide_methods.bas");}while(r);
S_62465:;
if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X<=_FUNC_GETWORDATCURSOR_STRING_A->len)))||is_error_pending()){
if(qbevent){evnt(25769,20464,"ide_methods.bas");if(r)goto S_62465;}
S_62466:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X)== 32 ))&(-(*_FUNC_GETWORDATCURSOR_LONG_X> 1 ))))||is_error_pending()){
if(qbevent){evnt(25769,20465,"ide_methods.bas");if(r)goto S_62466;}
S_62467:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 )!= 32 )))||is_error_pending()){
if(qbevent){evnt(25769,20466,"ide_methods.bas");if(r)goto S_62467;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X=*_FUNC_GETWORDATCURSOR_LONG_X- 1 ;
if(!qbevent)break;evnt(25769,20466,"ide_methods.bas");}while(r);
}
}
LABEL_TRY:;
if(qbevent){evnt(25769,20468,"ide_methods.bas");r=0;}
S_62471:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||is_error_pending()){
if(qbevent){evnt(25769,20469,"ide_methods.bas");if(r)goto S_62471;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X;
if(!qbevent)break;evnt(25769,20470,"ide_methods.bas");}while(r);
S_62473:;
while((-(*_FUNC_GETWORDATCURSOR_LONG_X1> 1 ))||is_error_pending()){
if(qbevent){evnt(25769,20471,"ide_methods.bas");if(r)goto S_62473;}
S_62474:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 )== 36 ))))||is_error_pending()){
if(qbevent){evnt(25769,20472,"ide_methods.bas");if(r)goto S_62474;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ;
if(!qbevent)break;evnt(25769,20472,"ide_methods.bas");}while(r);
}else{
do{
goto dl_exit_7036;
if(!qbevent)break;evnt(25769,20472,"ide_methods.bas");}while(r);
}
dl_continue_7036:;
}
dl_exit_7036:;
do{
*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X;
if(!qbevent)break;evnt(25769,20474,"ide_methods.bas");}while(r);
S_62481:;
while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X2<_FUNC_GETWORDATCURSOR_STRING_A->len)))||is_error_pending()){
if(qbevent){evnt(25769,20475,"ide_methods.bas");if(r)goto S_62481;}
S_62482:;
if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 )== 36 ))))||is_error_pending()){
if(qbevent){evnt(25769,20476,"ide_methods.bas");if(r)goto S_62482;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ;
if(!qbevent)break;evnt(25769,20476,"ide_methods.bas");}while(r);
}else{
do{
goto dl_exit_7038;
if(!qbevent)break;evnt(25769,20476,"ide_methods.bas");}while(r);
}
dl_continue_7038:;
}
dl_exit_7038:;
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_A2,func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1,*_FUNC_GETWORDATCURSOR_LONG_X2-*_FUNC_GETWORDATCURSOR_LONG_X1+ 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20478,"ide_methods.bas");}while(r);
}else{
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,func_chr(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20480,"ide_methods.bas");}while(r);
S_62491:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,func_chr( 32 ))))||is_error_pending()){
if(qbevent){evnt(25769,20481,"ide_methods.bas");if(r)goto S_62491;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20481,"ide_methods.bas");}while(r);
}
S_62494:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("~",1))))||is_error_pending()){
if(qbevent){evnt(25769,20482,"ide_methods.bas");if(r)goto S_62494;}
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("~",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20482,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20482,"ide_methods.bas");}while(r);
}
S_62498:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("`",1))))||is_error_pending()){
if(qbevent){evnt(25769,20483,"ide_methods.bas");if(r)goto S_62498;}
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("`",1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20483,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20483,"ide_methods.bas");}while(r);
}
S_62502:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("%",1)))&(qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X+ 1 ,NULL,0),qbs_new_txt_len("&",1)))))||is_error_pending()){
if(qbevent){evnt(25769,20484,"ide_methods.bas");if(r)goto S_62502;}
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("%&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20484,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20484,"ide_methods.bas");}while(r);
}
S_62506:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("&",1)))&(qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 ,NULL,0),qbs_new_txt_len("%",1)))))||is_error_pending()){
if(qbevent){evnt(25769,20485,"ide_methods.bas");if(r)goto S_62506;}
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("%&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20485,"ide_methods.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25769,20485,"ide_methods.bas");}while(r);
}
do{
*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X;
if(!qbevent)break;evnt(25769,20486,"ide_methods.bas");}while(r);
S_62511:;
while((-(*_FUNC_GETWORDATCURSOR_LONG_X1> 1 ))||is_error_pending()){
if(qbevent){evnt(25769,20487,"ide_methods.bas");if(r)goto S_62511;}
S_62512:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 , 1 ,0|1),_FUNC_GETWORDATCURSOR_STRING_SYMBOL)))||is_error_pending()){
if(qbevent){evnt(25769,20488,"ide_methods.bas");if(r)goto S_62512;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ;
if(!qbevent)break;evnt(25769,20488,"ide_methods.bas");}while(r);
}else{
do{
goto dl_exit_7039;
if(!qbevent)break;evnt(25769,20488,"ide_methods.bas");}while(r);
}
dl_continue_7039:;
}
dl_exit_7039:;
do{
*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X;
if(!qbevent)break;evnt(25769,20490,"ide_methods.bas");}while(r);
S_62519:;
while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X2<_FUNC_GETWORDATCURSOR_STRING_A->len)))||is_error_pending()){
if(qbevent){evnt(25769,20491,"ide_methods.bas");if(r)goto S_62519;}
S_62520:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 , 1 ,0|1),_FUNC_GETWORDATCURSOR_STRING_SYMBOL)))||is_error_pending()){
if(qbevent){evnt(25769,20492,"ide_methods.bas");if(r)goto S_62520;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ;
if(!qbevent)break;evnt(25769,20492,"ide_methods.bas");}while(r);
}else{
do{
goto dl_exit_7041;
if(!qbevent)break;evnt(25769,20492,"ide_methods.bas");}while(r);
}
dl_continue_7041:;
}
dl_exit_7041:;
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_A2,func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1,*_FUNC_GETWORDATCURSOR_LONG_X2-*_FUNC_GETWORDATCURSOR_LONG_X1+ 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20494,"ide_methods.bas");}while(r);
}
do{
qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,_FUNC_GETWORDATCURSOR_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25769,20496,"ide_methods.bas");}while(r);
S_62529:;
}else{
if (qbs_cleanup(qbs_tmp_base,(-(*_FUNC_GETWORDATCURSOR_LONG_X==(_FUNC_GETWORDATCURSOR_STRING_A->len+ 1 )))&(-(*_FUNC_GETWORDATCURSOR_LONG_X> 1 )))){
if(qbevent){evnt(25769,20497,"ide_methods.bas");if(r)goto S_62529;}
S_62530:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 )!= 32 )))||is_error_pending()){
if(qbevent){evnt(25769,20498,"ide_methods.bas");if(r)goto S_62530;}
do{
*_FUNC_GETWORDATCURSOR_LONG_X=*_FUNC_GETWORDATCURSOR_LONG_X- 1 ;
if(!qbevent)break;evnt(25769,20498,"ide_methods.bas");}while(r);
do{
goto LABEL_TRY;
if(!qbevent)break;evnt(25769,20498,"ide_methods.bas");}while(r);
}
}
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free374.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;
qbs_maketmp(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR);return _FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR;
}
