home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 11 / review / m2ccli3.txt < prev    next >
Encoding:
Text File  |  1989-07-15  |  497 b   |  23 lines
  1. MODULE NEST;
  2.  
  3. PROCEDURE AUSSEN(VAR PAR1: INTEGER);
  4.   PROCEDURE MITTE(PAR2: CARDINAL);
  5.     PROCEDURE INNEN(PAR3: BOOLEAN);
  6.       VAR INVAR: INTEGER;
  7.       BEGIN
  8.         IF PAR3 THEN AUSSEN(INVAR)
  9.                 ELSE MITTE(256)
  10.         END
  11.       END INNEN;
  12.     VAR MIVAR: INTEGER; 
  13.     BEGIN INNEN(TRUE); AUSSEN(MIVAR) 
  14.     END MITTE;
  15.   VAR AUVAR: INTEGER;
  16.   BEGIN AUVAR:=22; MITTE(15);
  17.         PAR1:=AUVAR
  18.   END AUSSEN;
  19. VAR GLOBAL: INTEGER;
  20. BEGIN
  21.   AUSSEN(GLOBAL)
  22. END NEST.
  23.