function cvl(string s, int i=0) as long
if i then i--
long v at (i+strptr s)
return v
end function

function mkl(long v) as string
function="    "
long w at (strptr function)
w=v
end function

string s=mkl 42
int v=cvl s
print v



sub PatchLong(string s, int i, long v)
if i then i--
long w at (i+strptr s)
w=v
end sub

string s=nuls 100
patchlong s,13,42
long v=cvl(s,13)
print v

