Thanks to everyone who helped.
Here is the solution. I'm not sure if it can get
anymore succinct or elegant, but it works.
----------------------------------------------------
on putTime cFrame, tFrames
ttsec = integer(tFrames-(10*integer(tFrames/10)))
twsec = integer((tFrames/10)-(60*integer((tFrames/10)/60)))
tmins = integer(tFrames/600)
if twsec < 10 then
twsec = "0" & twsec
end if
put "Total =" && tmins & ":" & twsec & "." & ttsec
ctsec = integer(cFrame-(10*integer(cFrame/10)))
cwsec = integer((cFrame/10)-(60*integer((cFrame/10)/60)))
cmins = integer(cFrame/600)
if cwsec < 10 then
cwsec = "0" & cwsec
end if
put "Elapse=" && cmins & ":" & cwsec & "." & ctsec
rTime = tFrames - cFrame
rtsec = integer(rTime-(10*integer(rTime/10)))
rwsec = integer((rtime/10)-(60*integer((rtime/10)/60)))
rmins = integer(rtime/600)
if rwsec < 10 then
rwsec = "0" & rwsec
end if
put "Remain=" && "-" & rmins & ":" & rwsec & "." & rtsec
end
-----------------------------------------------------
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]