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 "data202.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(24223,4,"hash.bas");}while(r);
S_36009:;
if ((-(*_FUNC_HASHVALUE_LONG_L== 0 ))||is_error_pending()){
if(qbevent){evnt(24223,5,"hash.bas");if(r)goto S_36009;}
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24223,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(24223,6,"hash.bas");}while(r);
S_36013:;
if ((-(*_FUNC_HASHVALUE_LONG_A!= 95 ))||is_error_pending()){
if(qbevent){evnt(24223,7,"hash.bas");if(r)goto S_36013;}
S_36014:;
if(qbevent){evnt(24223,8,"hash.bas");if(r)goto S_36014;}
S_36015:;
if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||is_error_pending()){
if(qbevent){evnt(24223,9,"hash.bas");if(r)goto S_36015;}
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(24223,10,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24223,11,"hash.bas");}while(r);
sc_ec_200_end:;
goto sc_4225_end;
}
S_36018:;
if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||is_error_pending()){
if(qbevent){evnt(24223,12,"hash.bas");if(r)goto S_36018;}
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(24223,13,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24223,14,"hash.bas");}while(r);
sc_ec_201_end:;
goto sc_4225_end;
}
S_36021:;
if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||is_error_pending()){
if(qbevent){evnt(24223,15,"hash.bas");if(r)goto S_36021;}
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(24223,16,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24223,17,"hash.bas");}while(r);
sc_ec_202_end:;
goto sc_4225_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(24223,19,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24223,20,"hash.bas");}while(r);
sc_4225_end:;
}else{
S_36029:;
if(qbevent){evnt(24223,23,"hash.bas");if(r)goto S_36029;}
S_36030:;
if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||is_error_pending()){
if(qbevent){evnt(24223,24,"hash.bas");if(r)goto S_36030;}
do{
*_FUNC_HASHVALUE_LONG_HASHVALUE=( 1048576 + 8388608 );
if(!qbevent)break;evnt(24223,25,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24223,25,"hash.bas");}while(r);
sc_ec_203_end:;
goto sc_4226_end;
}
S_36033:;
if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||is_error_pending()){
if(qbevent){evnt(24223,26,"hash.bas");if(r)goto S_36033;}
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(24223,27,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24223,28,"hash.bas");}while(r);
sc_ec_204_end:;
goto sc_4226_end;
}
S_36036:;
if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||is_error_pending()){
if(qbevent){evnt(24223,29,"hash.bas");if(r)goto S_36036;}
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(24223,30,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24223,31,"hash.bas");}while(r);
sc_ec_205_end:;
goto sc_4226_end;
}
S_36039:;
if (((*_FUNC_HASHVALUE_LONG_L==( 4 )))||is_error_pending()){
if(qbevent){evnt(24223,32,"hash.bas");if(r)goto S_36039;}
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(24223,33,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24223,34,"hash.bas");}while(r);
sc_ec_206_end:;
goto sc_4226_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(24223,36,"hash.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(24223,37,"hash.bas");}while(r);
sc_4226_end:;
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free202.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;
}
