Category : Modula II Source Code
Archive : M2-LIB2.ZIP
Filename : PMPTIMER.DEF
Output of file : PMPTIMER.DEF contained in archive : M2-LIB2.ZIP
= Program Id: PMPTIMER.DEF =
= Programmer: Peter M. Perchansky =
= Purpose: Export timing procedures. =
= Date Written: 12-16-89 =
=------------------------------------------------------------------=
= Version History =
=------------------------------------------------------------------=
= 02-20-90 PMP Cleanup. =
= 12-25-89 PMP Changed ElapsedTicks to return seconds instead =
= of 1/100th's of seconds. Added StartTimer and =
= ElapsedTime functions. =
= 12-16-89 PMP Date written. =
====================================================================*)
DEFINITION MODULE PMPTimer;
PROCEDURE StartTimer ();
(* Saves current day and time value in timeInstall *)
PROCEDURE ElapsedTime () : LONGCARD;
(* Returns elapsed time from call to StartTimer to *)
(* current time. Elapsed time is in hundredths of *)
(* a second. *)
PROCEDURE StartTick ();
(* Saves number of ticks at time of installation. *)
PROCEDURE ElapsedTicks (): LONGCARD;
(* Returns elapsed time from call of StartTick to *)
(* current tick value. Elapsed time is in seconds. *)
END PMPTimer.
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/