function mod(i,j)

  z=i/j
  z=int(z)
  a=i-z*j
  a=int(a)

return a

*---------------*
*               *
*---------------*
function int(stuff)

  res = ''
  i = 1
  c = substr(stuff,i,1)
  while (c!='' & ('x'%c)!='x.')
    res = res%c
    i = i + 1
    c = substr(stuff,i,1)
  endwhile

return res