BP.org is however unreachable for any browser I have.use Dillo :D
'------------------------------------
function hashcode(s as string) as sys
'====================================
dim as sys le=len(s),h=&h35db53bd,i=1
dim as byte ptr p=strptr(s)
for i=1 to le
h=(h shl 1)xor(*p)
p+=1
next
return h
end function
when all my efforts to get Eros to convert ThinBasic failed.well what to say...