🚀 go-pugleaf

John Rickard wrote:
> 
> i am coverting a pascal source i did a while back to vb4 so i can use
> it in my program.
> i have totally coverted everything except 1 thing.
> below is the pascal part i am having trouble comvertin to vb4.
> 
>  inc(l, Ord(s[i]) + (i * i))
> 
> and help is appreciated.
> 
> l,i are longint and integer
> s is string
> it is piece from a reg code gen program for my shareware...
> i could just start from scratch writing a reg gen for win but i
> wanted to try and learn something by converting it :) please help.
> 
> PLEASE if possible reply to me and the newsgroup as i do not have
> alot of time to read every group all the time.
> 
> --
> --
> Remove .DONTSPAMME from my
> email address to send me REAL email.
> --

What about :

	l = l + asc(mid$(s,i,1) + i*i

the function mid$ returns a char (actually a string of the length 1 )
from the string sstarting at char number i and with a length of 1
the function asc returns the ascii value of a char

It's by far not as efficient as the pascal way , but it'll work.
(ineffeicient since a string will be returned by mid$() that has to be
interpreted by asc() )

Marcel Smolenaars