home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / MOD2SRC.ZIP / PROCED4.MOD < prev    next >
Text File  |  1987-02-08  |  1KB  |  43 lines
  1.                                          (* Chapter 5 - Program 4 *)
  2. MODULE Proced4;
  3.  
  4. FROM InOut IMPORT WriteString, WriteCard, WriteLn;
  5.  
  6. VAR Count : CARDINAL;
  7.     Index : CARDINAL;
  8.     Other : CARDINAL;
  9.  
  10. PROCEDURE PrintSomeData;
  11. VAR Count : CARDINAL;
  12.     Apple : CARDINAL;
  13. BEGIN
  14.    Count := 7;
  15.    Other := 12;
  16.    Apple := 32;
  17.    WriteString("In PrintSomeData the variables are");
  18.    WriteCard(Index,5);
  19.    WriteCard(Count,5);
  20.    WriteCard(Other,5);
  21.    WriteCard(Apple,5);
  22.    WriteLn;
  23. END PrintSomeData;
  24.  
  25. BEGIN    (* Main program *)
  26.    FOR Index := 1 TO 3 DO
  27.       Count := Index;
  28.       Other := Index;
  29.          WriteString("In Main Program the variables are ");
  30.          WriteCard(Index,5);
  31.          WriteCard(Count,5);
  32.          WriteCard(Other,5);
  33.          WriteLn;
  34.       PrintSomeData;
  35.          WriteString("In Main Program the variables are ");
  36.          WriteCard(Index,5);
  37.          WriteCard(Count,5);
  38.          WriteCard(Other,5);
  39.          WriteLn;
  40.       WriteLn;
  41.    END;  (* of FOR loop *)
  42. END Proced4.
  43.