MR> "Hans Andersson" wrote to "All" (27 Jun 03  16:50:40)
 MR>  --- on the topic of ""timer object""

 HA> 'timer.inc
 HA> 'NOTE! DEF FN must be last include
 HA>
 HA> TYPE TimerT
 HA> started AS SINGLE
 HA> waitsecs AS SINGLE
 HA> stoptime AS SINGLE
 HA> END TYPE
 HA>
 HA> DECLARE SUB TimerStart (Self AS TimerT, Secs!)
 HA> DECLARE FUNCTION TimeUsed! (Self AS TimerT)
 HA> DECLARE FUNCTION TimeRemain! (Self AS TimerT)


 MR> I don't understand how to use your example. There seems to be duplicate
 MR> functions. I kept getting invalid types or mismatch errors when calling
 MR> TimerStart until I did DIM SHARED Self as TimerT. BTW the SECSINDAYS
 MR> shouldn't it be 86400 instead of 864000?

 MR>  Mike
 MR>  ****

 Hello, very odd, it seems indeed to have appended an extra zero to the
tail  of the constant 86400(0). (My finger must have slipped due to the
late night
 hour :-))  I am using the times functions without any
"duplicate" errors in
 an modem.bas modul.
 Seems that I must write a unit test... and come back later with an example!

 H.A.

--- Maximus/2 3.01