home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / modula2 / mod2src.arc / PROCED5.MOD < prev    next >
Encoding:
Text File  |  1987-02-09  |  539 b   |  34 lines
  1.                                          (* Chapter 5 - Program 5 *)
  2. MODULE Proced5;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;
  5.  
  6. PROCEDURE One;
  7. BEGIN
  8.    WriteString("This is procedure One.");
  9.    WriteLn;
  10. END One;
  11.  
  12. PROCEDURE Two;
  13. BEGIN
  14.    One;
  15.    WriteString("This is procedure Two.");
  16.    WriteLn;
  17. END Two;
  18.  
  19. PROCEDURE Three;
  20. BEGIN
  21.    Two;
  22.    WriteString("This is procedure Three.");
  23.    WriteLn;
  24. END Three;
  25.  
  26. BEGIN   (* Main program *)
  27.    One;
  28.    WriteLn;
  29.    Two;
  30.    WriteLn;
  31.    Three;
  32.    WriteLn;
  33. END Proced5.
  34.