IMPLEMENTATION MODULE TimeString ; FROM wrapc IMPORT strtime ; FROM ASCII IMPORT nul ; FROM SYSTEM IMPORT ADDRESS ; (* GetTimeString - places the time in ascii format into array, a. *) PROCEDURE GetTimeString (VAR a: ARRAY OF CHAR) ; VAR Addr: POINTER TO CHAR ; i : CARDINAL ; BEGIN Addr := strtime() ; i := 0 ; IF Addr#NIL THEN WHILE (i<HIGH(a)) AND (Addr^#nul) DO a[i] := Addr^ ; INC(i) ; INC(Addr) END END ; IF i<HIGH(a) THEN a[i] := nul END END GetTimeString ; END TimeString.