home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / modula2 / mod2src.arc / PROCED1.MOD < prev    next >
Text File  |  1987-02-08  |  603b  |  33 lines
  1.                                          (* Chapter 5 - Program 1 *)
  2. MODULE Proced1;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;
  5.  
  6. VAR Count : INTEGER;
  7.  
  8. PROCEDURE WriteHeader;
  9. BEGIN
  10.    WriteString("This is the header");
  11.    WriteLn;
  12. END WriteHeader;
  13.  
  14. PROCEDURE WriteMessage;
  15. BEGIN
  16.    WriteString("This is the message");
  17.    WriteLn;
  18. END WriteMessage;
  19.  
  20. PROCEDURE WriteEnding;
  21. BEGIN
  22.    WriteString("This is the end");
  23.    WriteLn;
  24. END WriteEnding;
  25.  
  26. BEGIN        (* Main program *)
  27.    WriteHeader;
  28.    FOR Count := 1 TO 8 DO
  29.       WriteMessage;
  30.    END;
  31.    WriteEnding;
  32. END Proced1.
  33.