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 / CH05E1.MOD < prev    next >
Text File  |  1989-01-18  |  641b  |  41 lines
  1.                             (* Chapter 5 - Programming exercise 1 *)
  2. MODULE CH05E1;
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;
  5.  
  6.    PROCEDURE ListMyName;
  7.    BEGIN
  8.       WriteString("John Doe");
  9.       WriteLn;
  10.    END ListMyName;
  11.  
  12.    PROCEDURE ListMyAddress;
  13.    BEGIN
  14.       WriteString("1234 Main Street");
  15.       WriteLn;
  16.    END ListMyAddress;
  17.  
  18.    PROCEDURE ListMyState;
  19.    BEGIN
  20.       WriteString("Littleburg, NY 01254");
  21.       WriteLn;
  22.    END ListMyState;
  23.  
  24. BEGIN
  25.    ListMyName;
  26.    ListMyAddress;
  27.    ListMyState;
  28. END CH05E1.
  29.  
  30.  
  31.  
  32.  
  33. (* Result of execution
  34.  
  35. John Doe
  36. 1234 Main Street
  37. Littleburg, NY 01254
  38.  
  39. *)
  40.  
  41.