void SUB_HELP_SHOWTEXT(){
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 "data411.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,18930,"ide_methods.bas");}while(r);
S_64887:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_HELP_SHOWTEXT_LONG_SETUP== 0 ))&(-(func_ubound(__ARRAY_STRING_BACK,1,1)== 1 ))))||is_error_pending()){
if(qbevent){evnt(28182,18931,"ide_methods.bas");if(r)goto S_64887;}
do{
*_SUB_HELP_SHOWTEXT_LONG_SETUP= 1 ;
if(!qbevent)break;evnt(28182,18932,"ide_methods.bas");}while(r);
S_64889:;
if ((~(*__BYTE_IDECONTEXTHELPSF))||is_error_pending()){
if(qbevent){evnt(28182,18933,"ide_methods.bas");if(r)goto S_64889;}
do{
qbs_set(_SUB_HELP_SHOWTEXT_STRING_A,FUNC_WIKI(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18934,"ide_methods.bas");}while(r);
do{
SUB_WIKIPARSE(_SUB_HELP_SHOWTEXT_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18935,"ide_methods.bas");}while(r);
}
}
do{
if (__ARRAY_LONG_HELP_LINELEN[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;
((mem_lock*)((ptrszint*)__ARRAY_LONG_HELP_LINELEN)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_LONG_HELP_LINELEN[2]&1){
preserve_old_ptr=__ARRAY_LONG_HELP_LINELEN[0];
preserve_old_flags=__ARRAY_LONG_HELP_LINELEN[2];
preserve_old_total=__ARRAY_LONG_HELP_LINELEN[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_HELP_WH)-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)(4);
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);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_LONG_HELP_LINELEN[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_HELP_LINELEN[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_HELP_LINELEN[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_LONG_HELP_LINELEN[0]) error(257);
memset((void*)(__ARRAY_LONG_HELP_LINELEN[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_LONG_HELP_LINELEN[0]=preserve_new_ptr;
}else{
__ARRAY_LONG_HELP_LINELEN[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_LONG_HELP_LINELEN[0]) error(257);
}
}
__ARRAY_LONG_HELP_LINELEN[2]|=1;
__ARRAY_LONG_HELP_LINELEN[4]=alloc_new_desc[4];
__ARRAY_LONG_HELP_LINELEN[5]=alloc_new_desc[5];
__ARRAY_LONG_HELP_LINELEN[6]=alloc_new_desc[6];
__ARRAY_LONG_HELP_LINELEN[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(28182,18939,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_SY=*__LONG_HELP_WY1;
if(!qbevent)break;evnt(28182,18941,"ide_methods.bas");}while(r);
S_64896:;
fornext_value7503=*__LONG_HELP_SY;
fornext_finalvalue7503=*__LONG_HELP_SY+*__LONG_HELP_WH- 1 ;
fornext_step7503= 1 ;
if (fornext_step7503<0) fornext_step_negative7503=1; else fornext_step_negative7503=0;
if (is_error_pending()) goto fornext_error7503;
goto fornext_entrylabel7503;
while(1){
fornext_value7503=fornext_step7503+(*_SUB_HELP_SHOWTEXT_LONG_Y);
fornext_entrylabel7503:
*_SUB_HELP_SHOWTEXT_LONG_Y=fornext_value7503;
if (fornext_step_negative7503){
if (fornext_value7503<fornext_finalvalue7503) break;
}else{
if (fornext_value7503>fornext_finalvalue7503) break;
}
fornext_error7503:;
if(qbevent){evnt(28182,18942,"ide_methods.bas");if(r)goto S_64896;}
S_64897:;
if ((-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_H))||is_error_pending()){
if(qbevent){evnt(28182,18943,"ide_methods.bas");if(r)goto S_64897;}
do{
*_SUB_HELP_SHOWTEXT_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_SUB_HELP_SHOWTEXT_LONG_Y- 1 )* 4 )+( 1 ), 4 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18944,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_X=*_SUB_HELP_SHOWTEXT_LONG_L;
if(!qbevent)break;evnt(28182,18945,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_X3= 1 ;
if(!qbevent)break;evnt(28182,18946,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_SX=*__LONG_HELP_WX1;
if(!qbevent)break;evnt(28182,18948,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18949,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_COL=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X+ 1 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18949,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(*_SUB_HELP_SHOWTEXT_LONG_SY,*_SUB_HELP_SHOWTEXT_LONG_SX,NULL,NULL,NULL,3);
if(!qbevent)break;evnt(28182,18950,"ide_methods.bas");}while(r);
S_64905:;
while((!(-(*_SUB_HELP_SHOWTEXT_LONG_COL> 127 )))||is_error_pending()){
if(qbevent){evnt(28182,18951,"ide_methods.bas");if(r)goto S_64905;}
do{
qbg_sub_color(*_SUB_HELP_SHOWTEXT_LONG_COL& 15 ,qb_safe_idiv(*_SUB_HELP_SHOWTEXT_LONG_COL, 16 ),NULL,NULL,3);
if(!qbevent)break;evnt(28182,18952,"ide_methods.bas");}while(r);
S_64907:;
if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||is_error_pending()){
if(qbevent){evnt(28182,18953,"ide_methods.bas");if(r)goto S_64907;}
S_64908:;
if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||is_error_pending()){
if(qbevent){evnt(28182,18954,"ide_methods.bas");if(r)goto S_64908;}
S_64909:;
if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||is_error_pending()){
if(qbevent){evnt(28182,18955,"ide_methods.bas");if(r)goto S_64909;}
do{
qbg_sub_color( 0 , 7 ,NULL,NULL,3);
if(!qbevent)break;evnt(28182,18956,"ide_methods.bas");}while(r);
}
}
}
S_64914:;
if ((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SX))||is_error_pending()){
if(qbevent){evnt(28182,18960,"ide_methods.bas");if(r)goto S_64914;}
S_64915:;
if ((-(*_SUB_HELP_SHOWTEXT_LONG_SX<=*__LONG_HELP_WX2))||is_error_pending()){
if(qbevent){evnt(28182,18961,"ide_methods.bas");if(r)goto S_64915;}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,func_chr(*_SUB_HELP_SHOWTEXT_LONG_C));
if (is_error_pending()) goto skip7505;
makefit(tqbs);
qbs_print(tqbs,0);
skip7505:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18962,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_SX=*_SUB_HELP_SHOWTEXT_LONG_SX+ 1 ;
if(!qbevent)break;evnt(28182,18963,"ide_methods.bas");}while(r);
}
}
do{
*_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ;
if(!qbevent)break;evnt(28182,18966,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_X=*_SUB_HELP_SHOWTEXT_LONG_X+ 4 ;
if(!qbevent)break;evnt(28182,18966,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18966,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_COL=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X+ 1 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18966,"ide_methods.bas");}while(r);
dl_continue_7504:;
}
dl_exit_7504:;
do{
tmp_long=array_check((*_SUB_HELP_SHOWTEXT_LONG_Y-*__LONG_HELP_SY)-__ARRAY_LONG_HELP_LINELEN[4],__ARRAY_LONG_HELP_LINELEN[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_HELP_LINELEN[0]))[tmp_long]=*_SUB_HELP_SHOWTEXT_LONG_X3- 1 ;
if(!qbevent)break;evnt(28182,18969,"ide_methods.bas");}while(r);
S_64926:;
fornext_value7507= 1 ;
fornext_finalvalue7507=*__LONG_HELP_WX2-func_pos( 0 )+ 1 ;
fornext_step7507= 1 ;
if (fornext_step7507<0) fornext_step_negative7507=1; else fornext_step_negative7507=0;
if (is_error_pending()) goto fornext_error7507;
goto fornext_entrylabel7507;
while(1){
fornext_value7507=fornext_step7507+(*_SUB_HELP_SHOWTEXT_LONG_X4);
fornext_entrylabel7507:
*_SUB_HELP_SHOWTEXT_LONG_X4=fornext_value7507;
if (fornext_step_negative7507){
if (fornext_value7507<fornext_finalvalue7507) break;
}else{
if (fornext_value7507>fornext_finalvalue7507) break;
}
fornext_error7507:;
if(qbevent){evnt(28182,18971,"ide_methods.bas");if(r)goto S_64926;}
do{
qbg_sub_color( 7 ,qb_safe_idiv((*_SUB_HELP_SHOWTEXT_LONG_COL- 128 ), 16 ),NULL,NULL,3);
if(!qbevent)break;evnt(28182,18972,"ide_methods.bas");}while(r);
S_64928:;
if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||is_error_pending()){
if(qbevent){evnt(28182,18973,"ide_methods.bas");if(r)goto S_64928;}
S_64929:;
if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||is_error_pending()){
if(qbevent){evnt(28182,18974,"ide_methods.bas");if(r)goto S_64929;}
S_64930:;
if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||is_error_pending()){
if(qbevent){evnt(28182,18975,"ide_methods.bas");if(r)goto S_64930;}
do{
qbg_sub_color( 0 , 7 ,NULL,NULL,3);
if(!qbevent)break;evnt(28182,18976,"ide_methods.bas");}while(r);
}
}
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len(" ",1));
if (is_error_pending()) goto skip7508;
makefit(tqbs);
qbs_print(tqbs,0);
skip7508:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18980,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ;
if(!qbevent)break;evnt(28182,18981,"ide_methods.bas");}while(r);
fornext_continue_7506:;
}
fornext_exit_7506:;
}else{
do{
*_SUB_HELP_SHOWTEXT_LONG_SX=*__LONG_HELP_WX1;
if(!qbevent)break;evnt(28182,18986,"ide_methods.bas");}while(r);
do{
qbg_sub_locate(*_SUB_HELP_SHOWTEXT_LONG_SY,*_SUB_HELP_SHOWTEXT_LONG_SX,NULL,NULL,NULL,3);
if(!qbevent)break;evnt(28182,18987,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_X3=*__LONG_HELP_SX;
if(!qbevent)break;evnt(28182,18988,"ide_methods.bas");}while(r);
S_64942:;
fornext_value7510= 1 ;
fornext_finalvalue7510=*__LONG_HELP_WW;
fornext_step7510= 1 ;
if (fornext_step7510<0) fornext_step_negative7510=1; else fornext_step_negative7510=0;
if (is_error_pending()) goto fornext_error7510;
goto fornext_entrylabel7510;
while(1){
fornext_value7510=fornext_step7510+(*_SUB_HELP_SHOWTEXT_LONG_X4);
fornext_entrylabel7510:
*_SUB_HELP_SHOWTEXT_LONG_X4=fornext_value7510;
if (fornext_step_negative7510){
if (fornext_value7510<fornext_finalvalue7510) break;
}else{
if (fornext_value7510>fornext_finalvalue7510) break;
}
fornext_error7510:;
if(qbevent){evnt(28182,18989,"ide_methods.bas");if(r)goto S_64942;}
do{
qbg_sub_color( 7 , 0 ,NULL,NULL,3);
if(!qbevent)break;evnt(28182,18990,"ide_methods.bas");}while(r);
S_64944:;
if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||is_error_pending()){
if(qbevent){evnt(28182,18991,"ide_methods.bas");if(r)goto S_64944;}
S_64945:;
if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||is_error_pending()){
if(qbevent){evnt(28182,18992,"ide_methods.bas");if(r)goto S_64945;}
S_64946:;
if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||is_error_pending()){
if(qbevent){evnt(28182,18993,"ide_methods.bas");if(r)goto S_64946;}
do{
qbg_sub_color( 0 , 7 ,NULL,NULL,3);
if(!qbevent)break;evnt(28182,18994,"ide_methods.bas");}while(r);
}
}
}
do{
tqbs=qbs_new(0,0);
qbs_set(tqbs,qbs_new_txt_len(" ",1));
if (is_error_pending()) goto skip7511;
makefit(tqbs);
qbs_print(tqbs,0);
skip7511:
qbs_free(tqbs);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28182,18998,"ide_methods.bas");}while(r);
do{
*_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ;
if(!qbevent)break;evnt(28182,18999,"ide_methods.bas");}while(r);
fornext_continue_7509:;
}
fornext_exit_7509:;
do{
tmp_long=array_check((*_SUB_HELP_SHOWTEXT_LONG_Y-*__LONG_HELP_SY)-__ARRAY_LONG_HELP_LINELEN[4],__ARRAY_LONG_HELP_LINELEN[5]);
if (!is_error_pending()) ((int32*)(__ARRAY_LONG_HELP_LINELEN[0]))[tmp_long]= 0 ;
if(!qbevent)break;evnt(28182,19001,"ide_methods.bas");}while(r);
}
do{
*_SUB_HELP_SHOWTEXT_LONG_SY=*_SUB_HELP_SHOWTEXT_LONG_SY+ 1 ;
if(!qbevent)break;evnt(28182,19004,"ide_methods.bas");}while(r);
fornext_continue_7502:;
}
fornext_exit_7502:;
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free411.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;
}
