#line 2 "utilities/hash.bas"
int32 FUNC_HASHVALUE(qbs*_FUNC_HASHVALUE_STRING_A){
#line 2 "utilities/hash.bas"
qbs *tqbs;
#line 2 "utilities/hash.bas"
ptrszint tmp_long;
#line 2 "utilities/hash.bas"
int32 tmp_fileno;
#line 2 "utilities/hash.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 2 "utilities/hash.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 2 "utilities/hash.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 2 "utilities/hash.bas"
#include "data272.txt"
#line 2 "utilities/hash.bas"
mem_lock *sf_mem_lock;
#line 2 "utilities/hash.bas"
new_mem_lock();
#line 2 "utilities/hash.bas"
sf_mem_lock=mem_lock_tmp;
#line 2 "utilities/hash.bas"
sf_mem_lock->type=3;
#line 2 "utilities/hash.bas"
libqb_check_stack();
#line 2 "utilities/hash.bas"
if (is_error_pending()) goto exit_subfunc;
#line 4 "utilities/hash.bas"
do{
#line 4 "utilities/hash.bas"
*_FUNC_HASHVALUE_LONG_L=_FUNC_HASHVALUE_STRING_A->len;
#line 4 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 4 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,4,"hash.bas");}while(r);
#line 5 "utilities/hash.bas"
S_41751:;
#line 5 "utilities/hash.bas"
if ((-(*_FUNC_HASHVALUE_LONG_L== 0 ))||is_error_pending()){
#line 5 "utilities/hash.bas"
if(qbevent){evnt(28807,5,"hash.bas");if(r)goto S_41751;}
#line 5 "utilities/hash.bas"
do{
#line 5 "utilities/hash.bas"
goto exit_subfunc;
#line 5 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,5,"hash.bas");}while(r);
#line 5 "utilities/hash.bas"
}
#line 6 "utilities/hash.bas"
do{
#line 6 "utilities/hash.bas"
*_FUNC_HASHVALUE_LONG_A=qbs_asc(_FUNC_HASHVALUE_STRING_A);
#line 6 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 6 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,6,"hash.bas");}while(r);
#line 7 "utilities/hash.bas"
S_41755:;
#line 7 "utilities/hash.bas"
if ((-(*_FUNC_HASHVALUE_LONG_A!= 95 ))||is_error_pending()){
#line 7 "utilities/hash.bas"
if(qbevent){evnt(28807,7,"hash.bas");if(r)goto S_41755;}
#line 8 "utilities/hash.bas"
S_41756:;
#line 8 "utilities/hash.bas"
if(qbevent){evnt(28807,8,"hash.bas");if(r)goto S_41756;}
#line 9 "utilities/hash.bas"
S_41757:;
#line 9 "utilities/hash.bas"
if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||is_error_pending()){
#line 9 "utilities/hash.bas"
if(qbevent){evnt(28807,9,"hash.bas");if(r)goto S_41757;}
#line 10 "utilities/hash.bas"
do{
#line 10 "utilities/hash.bas"
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*_FUNC_HASHVALUE_LONG_A)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+ 1048576 ;
#line 10 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,10,"hash.bas");}while(r);
#line 11 "utilities/hash.bas"
do{
#line 11 "utilities/hash.bas"
goto exit_subfunc;
#line 11 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,11,"hash.bas");}while(r);
#line 12 "utilities/hash.bas"
sc_ec_195_end:;
#line 12 "utilities/hash.bas"
goto sc_4206_end;
#line 12 "utilities/hash.bas"
}
#line 12 "utilities/hash.bas"
S_41760:;
#line 12 "utilities/hash.bas"
if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||is_error_pending()){
#line 12 "utilities/hash.bas"
if(qbevent){evnt(28807,12,"hash.bas");if(r)goto S_41760;}
#line 13 "utilities/hash.bas"
do{
#line 13 "utilities/hash.bas"
*_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 ;
#line 13 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 13 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,13,"hash.bas");}while(r);
#line 14 "utilities/hash.bas"
do{
#line 14 "utilities/hash.bas"
goto exit_subfunc;
#line 14 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,14,"hash.bas");}while(r);
#line 15 "utilities/hash.bas"
sc_ec_196_end:;
#line 15 "utilities/hash.bas"
goto sc_4206_end;
#line 15 "utilities/hash.bas"
}
#line 15 "utilities/hash.bas"
S_41763:;
#line 15 "utilities/hash.bas"
if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||is_error_pending()){
#line 15 "utilities/hash.bas"
if(qbevent){evnt(28807,15,"hash.bas");if(r)goto S_41763;}
#line 16 "utilities/hash.bas"
do{
#line 16 "utilities/hash.bas"
*_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 );
#line 16 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 16 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,16,"hash.bas");}while(r);
#line 17 "utilities/hash.bas"
do{
#line 17 "utilities/hash.bas"
goto exit_subfunc;
#line 17 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,17,"hash.bas");}while(r);
#line 18 "utilities/hash.bas"
sc_ec_197_end:;
#line 18 "utilities/hash.bas"
goto sc_4206_end;
#line 18 "utilities/hash.bas"
}
#line 19 "utilities/hash.bas"
do{
#line 19 "utilities/hash.bas"
*_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 );
#line 19 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 19 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,19,"hash.bas");}while(r);
#line 20 "utilities/hash.bas"
do{
#line 20 "utilities/hash.bas"
goto exit_subfunc;
#line 20 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,20,"hash.bas");}while(r);
#line 21 "utilities/hash.bas"
sc_4206_end:;
#line 22 "utilities/hash.bas"
}else{
#line 23 "utilities/hash.bas"
S_41771:;
#line 23 "utilities/hash.bas"
if(qbevent){evnt(28807,23,"hash.bas");if(r)goto S_41771;}
#line 24 "utilities/hash.bas"
S_41772:;
#line 24 "utilities/hash.bas"
if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||is_error_pending()){
#line 24 "utilities/hash.bas"
if(qbevent){evnt(28807,24,"hash.bas");if(r)goto S_41772;}
#line 25 "utilities/hash.bas"
do{
#line 25 "utilities/hash.bas"
*_FUNC_HASHVALUE_LONG_HASHVALUE=( 1048576 + 8388608 );
#line 25 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,25,"hash.bas");}while(r);
#line 25 "utilities/hash.bas"
do{
#line 25 "utilities/hash.bas"
goto exit_subfunc;
#line 25 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,25,"hash.bas");}while(r);
#line 26 "utilities/hash.bas"
sc_ec_198_end:;
#line 26 "utilities/hash.bas"
goto sc_4207_end;
#line 26 "utilities/hash.bas"
}
#line 26 "utilities/hash.bas"
S_41775:;
#line 26 "utilities/hash.bas"
if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||is_error_pending()){
#line 26 "utilities/hash.bas"
if(qbevent){evnt(28807,26,"hash.bas");if(r)goto S_41775;}
#line 27 "utilities/hash.bas"
do{
#line 27 "utilities/hash.bas"
*_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 );
#line 27 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 27 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,27,"hash.bas");}while(r);
#line 28 "utilities/hash.bas"
do{
#line 28 "utilities/hash.bas"
goto exit_subfunc;
#line 28 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,28,"hash.bas");}while(r);
#line 29 "utilities/hash.bas"
sc_ec_199_end:;
#line 29 "utilities/hash.bas"
goto sc_4207_end;
#line 29 "utilities/hash.bas"
}
#line 29 "utilities/hash.bas"
S_41778:;
#line 29 "utilities/hash.bas"
if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||is_error_pending()){
#line 29 "utilities/hash.bas"
if(qbevent){evnt(28807,29,"hash.bas");if(r)goto S_41778;}
#line 30 "utilities/hash.bas"
do{
#line 30 "utilities/hash.bas"
*_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 );
#line 30 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 30 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,30,"hash.bas");}while(r);
#line 31 "utilities/hash.bas"
do{
#line 31 "utilities/hash.bas"
goto exit_subfunc;
#line 31 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,31,"hash.bas");}while(r);
#line 32 "utilities/hash.bas"
sc_ec_200_end:;
#line 32 "utilities/hash.bas"
goto sc_4207_end;
#line 32 "utilities/hash.bas"
}
#line 32 "utilities/hash.bas"
S_41781:;
#line 32 "utilities/hash.bas"
if (((*_FUNC_HASHVALUE_LONG_L==( 4 )))||is_error_pending()){
#line 32 "utilities/hash.bas"
if(qbevent){evnt(28807,32,"hash.bas");if(r)goto S_41781;}
#line 33 "utilities/hash.bas"
do{
#line 33 "utilities/hash.bas"
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((qb_safe_idiv((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 ));
#line 33 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 33 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,33,"hash.bas");}while(r);
#line 34 "utilities/hash.bas"
do{
#line 34 "utilities/hash.bas"
goto exit_subfunc;
#line 34 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,34,"hash.bas");}while(r);
#line 35 "utilities/hash.bas"
sc_ec_201_end:;
#line 35 "utilities/hash.bas"
goto sc_4207_end;
#line 35 "utilities/hash.bas"
}
#line 36 "utilities/hash.bas"
do{
#line 36 "utilities/hash.bas"
*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((qb_safe_idiv((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 );
#line 36 "utilities/hash.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 36 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,36,"hash.bas");}while(r);
#line 37 "utilities/hash.bas"
do{
#line 37 "utilities/hash.bas"
goto exit_subfunc;
#line 37 "utilities/hash.bas"
if(!qbevent)break;evnt(28807,37,"hash.bas");}while(r);
#line 38 "utilities/hash.bas"
sc_4207_end:;
#line 39 "utilities/hash.bas"
}
#line 40 "utilities/hash.bas"
exit_subfunc:;
#line 40 "utilities/hash.bas"
free_mem_lock(sf_mem_lock);
#line 40 "utilities/hash.bas"
#include "free272.txt"
#line 40 "utilities/hash.bas"
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;
#line 40 "utilities/hash.bas"
cmem_sp=tmp_cmem_sp;
#line 40 "utilities/hash.bas"
return *_FUNC_HASHVALUE_LONG_HASHVALUE;
#line 40 "utilities/hash.bas"
}
