home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / fst_mod / source / locmod1.mod < prev    next >
Text File  |  1987-02-08  |  830b  |  30 lines
  1.                                         (* Chapter 13 - Program 1 *)
  2. MODULE LocMod1;
  3.  
  4. FROM InOut IMPORT WriteString, WriteCard, WriteLn;
  5.  
  6. VAR Index : CARDINAL;
  7.  
  8.        MODULE LocalStuff;
  9.        EXPORT GetNumber;    (* Nothing else is visible outside *)
  10.                             (* Nothing outside is visible here *)
  11.        VAR Counter : CARDINAL;
  12.  
  13.               PROCEDURE GetNumber() : CARDINAL;
  14.               BEGIN
  15.                  Counter := Counter + 3;
  16.                  RETURN Counter;
  17.               END GetNumber;
  18.  
  19.        BEGIN
  20.        Counter := 4;    (* This is only run at load time *)
  21.        END LocalStuff;
  22.  
  23. BEGIN      (* Main program *)
  24.    FOR Index := 1 TO 8 DO
  25.       WriteString("The count is now ");
  26.       WriteCard(GetNumber(),8);
  27.       WriteLn;
  28.    END;    (* Do loop *)
  29. END LocMod1.
  30.