int32 FUNC_HASHVALUE(qbs*_FUNC_HASHVALUE_STRING_A){
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 "data211.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{
*_FUNC_HASHVALUE_LONG_L=_FUNC_HASHVALUE_STRING_A->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,4,"hash.bas");}while(r);
S_37538:;
if ((-(*_FUNC_HASHVALUE_LONG_L== 0 ))||is_error_pending()){
if(qbevent){evnt(25757,5,"hash.bas");if(r)goto S_37538;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,5,"hash.bas");}while(r);
}
do{
*_FUNC_HASHVALUE_LONG_A=qbs_asc(_FUNC_HASHVALUE_STRING_A);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,6,"hash.bas");}while(r);
S_37542:;
if ((-(*_FUNC_HASHVALUE_LONG_A!= 95 ))||is_error_pending()){
if(qbevent){evnt(25757,7,"hash.bas");if(r)goto S_37542;}
S_37543:;
if(qbevent){evnt(25757,8,"hash.bas");if(r)goto S_37543;}
S_37544:;
if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||is_error_pending()){
if(qbevent){evnt(25757,9,"hash.bas");if(r)goto S_37544;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*_FUNC_HASHVALUE_LONG_A)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+ 1048576 ;
if(!qbevent)break;evnt(25757,10,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,11,"hash.bas");}while(r);
sc_ec_200_end:;
goto sc_4456_end;
}
S_37547:;
if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||is_error_pending()){
if(qbevent){evnt(25757,12,"hash.bas");if(r)goto S_37547;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+ 2097152 ;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,13,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,14,"hash.bas");}while(r);
sc_ec_201_end:;
goto sc_4456_end;
}
S_37550:;
if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||is_error_pending()){
if(qbevent){evnt(25757,15,"hash.bas");if(r)goto S_37550;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 3 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 1024 )+( 3145728 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,16,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,17,"hash.bas");}while(r);
sc_ec_202_end:;
goto sc_4456_end;
}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L))+(qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L- 1 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]* 1024 )+((*_FUNC_HASHVALUE_LONG_L& 7 )* 1048576 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,19,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,20,"hash.bas");}while(r);
sc_4456_end:;
}else{
S_37558:;
if(qbevent){evnt(25757,23,"hash.bas");if(r)goto S_37558;}
S_37559:;
if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||is_error_pending()){
if(qbevent){evnt(25757,24,"hash.bas");if(r)goto S_37559;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=( 1048576 + 8388608 );
if(!qbevent)break;evnt(25757,25,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,25,"hash.bas");}while(r);
sc_ec_203_end:;
goto sc_4457_end;
}
S_37562:;
if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||is_error_pending()){
if(qbevent){evnt(25757,26,"hash.bas");if(r)goto S_37562;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 2 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+( 2097152 + 8388608 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,27,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,28,"hash.bas");}while(r);
sc_ec_204_end:;
goto sc_4457_end;
}
S_37565:;
if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||is_error_pending()){
if(qbevent){evnt(25757,29,"hash.bas");if(r)goto S_37565;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A, 2 ))+(qbs_asc(_FUNC_HASHVALUE_STRING_A, 3 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+( 3145728 + 8388608 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,30,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,31,"hash.bas");}while(r);
sc_ec_205_end:;
goto sc_4457_end;
}
S_37568:;
if (((*_FUNC_HASHVALUE_LONG_L==( 4 )))||is_error_pending()){
if(qbevent){evnt(25757,32,"hash.bas");if(r)goto S_37568;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((string2l(_FUNC_HASHVALUE_STRING_A)& 16776960 )/  256 )-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 4 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 1024 )+(( 4194304 + 8388608 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,33,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,34,"hash.bas");}while(r);
sc_ec_206_end:;
goto sc_4457_end;
}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((string2l(_FUNC_HASHVALUE_STRING_A)& 16776960 )/  256 )-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L))+(qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L- 1 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]* 1024 )+((*_FUNC_HASHVALUE_LONG_L& 7 )* 1048576 )+( 8388608 );
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25757,36,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25757,37,"hash.bas");}while(r);
sc_4457_end:;
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free211.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;
return *_FUNC_HASHVALUE_LONG_HASHVALUE;
}
