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 >
Text File  |  1989-01-18  |  404b  |  34 lines
  1.                             (* Chapter 4 - Programming exercise 1 *)
  2. MODULE CH04E1;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;
  5.  
  6. VAR Index : INTEGER;
  7.  
  8. BEGIN
  9.  
  10.    FOR Index := 1 TO 10 DO
  11.       WriteString("John Doe");
  12.       WriteLn;
  13.    END;
  14.  
  15. END CH04E1.
  16.  
  17.  
  18.  
  19.  
  20. (* Result of execution
  21.  
  22. John Doe
  23. John Doe
  24. John Doe
  25. John Doe
  26. John Doe
  27. John Doe
  28. John Doe
  29. John Doe
  30. John Doe
  31. John Doe
  32.  
  33. *)
  34.