home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / fst_mod / source / proced2.mod < prev    next >
Text File  |  1987-02-08  |  1KB  |  43 lines
  1.                                          (* Chapter 5 - Program 2 *)
  2. MODULE Proced2;
  3.  
  4. FROM InOut IMPORT WriteString, WriteInt, WriteLn;
  5.  
  6. VAR Stuff : INTEGER;
  7.     Thing : INTEGER;
  8.  
  9. PROCEDURE PrintDataOut(Puppy : INTEGER);
  10. BEGIN
  11.    WriteString("The value of Puppy is     ");
  12.    WriteInt(Puppy,5);
  13.    WriteLn;
  14.    Puppy := 12;
  15. END PrintDataOut;
  16.  
  17. PROCEDURE PrintAndModify(VAR Cat : INTEGER);
  18. BEGIN
  19.    WriteString("The value of Cat is       ");
  20.    WriteInt(Cat,5);
  21.    WriteLn;
  22.    Cat := 37;
  23. END PrintAndModify;
  24.  
  25. BEGIN        (* Main program *)
  26.    FOR Stuff := 3 TO 5 DO
  27.       Thing := Stuff;
  28.       PrintDataOut(Thing);
  29.          WriteString("Back from print, data is  ");
  30.          WriteInt(Thing,5);
  31.          WriteLn;
  32.       PrintAndModify(Thing);
  33.          WriteString("Back from modify, data is ");
  34.          WriteInt(Thing,5);
  35.          WriteLn;
  36.       PrintDataOut(Thing);
  37.          WriteString("Back from print, data is  ");
  38.          WriteInt(Thing,5);
  39.          WriteLn;
  40.          WriteLn;
  41.    END;
  42. END Proced2.
  43.