home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
mod2tutr.zip
/
EXAMPLES.ZIP
/
CH04E1.MOD
< prev
next >
Wrap
Text File
|
1989-01-18
|
404b
|
34 lines
(* Chapter 4 - Programming exercise 1 *)
MODULE CH04E1;
FROM InOut IMPORT WriteString, WriteLn;
VAR Index : INTEGER;
BEGIN
FOR Index := 1 TO 10 DO
WriteString("John Doe");
WriteLn;
END;
END CH04E1.
(* Result of execution
John Doe
John Doe
John Doe
John Doe
John Doe
John Doe
John Doe
John Doe
John Doe
John Doe
*)