function midlr(mid1,mid2,mid3)
   mid1=mid(mid1,mid2,mid3)
   midlr=mid1
end function

function replacelr(mid1,mid2,mid3)
   mid1=replace(mid1,mid2,mid3)
   replacelr=mid1
end function

function intlr(mid1)
   mid1=int(mid1)
   intlr=mid1
end function

function instrlr(mid1,mid2)
   mid1=instr(mid1,mid2)
   instrlr=mid1
end function


sub cleart3()
 parent.document.lform1.T3.value=0
 parent.document.lform1.T4.value=","
end sub
