1 (* ============================================================ *)
2 (* *)
3 (* Gardens Point Component Pascal Library Module. *)
4 (* Copyright (c) K John Gough 1999, 2000 *)
5 (* Created : 26 December 1999 kjg *)
6 (* *)
7 (* ============================================================ *)
10 IMPORT
11 Console,
18 (** Write a single character to file f. *)
19 BEGIN
24 (** Write an end of line to file f. *)
25 BEGIN
30 (** Write a character string to file f. *)
32 BEGIN
38 (** Write s left-justified in a field of width w, fill with char c. *)
41 BEGIN
46 ELSE
54 BEGIN
67 BEGIN
73 REPEAT
86 BEGIN
91 REPEAT
101 (** Write an integer to file f to a field of width w;
102 if w = 0, then leave a space then left justify. *)
105 BEGIN
112 (** Format an integer into the character array a. *)
116 BEGIN
121 ELSE
128 (** Write an longint to file f to a field of width w;
129 if w = 0, then leave a space then left justify. *)
132 BEGIN
139 (** Format a long integer into the character array a. *)
143 BEGIN
148 ELSE
156 BEGIN