home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / GLEN / VOL10N22.ZIP / STATIC.PAS < prev    next >
Pascal/Delphi Source File  |  1991-11-25  |  559b  |  32 lines

  1. STATIC.PAS
  2. COMPLETE LISTING
  3.  
  4.  
  5. PROGRAM TestStaticVariables;
  6. CONST Limit          = 10;
  7.  
  8.   PROCEDURE Proc1;
  9.   CONST Counter : Integer = 0;
  10.   BEGIN
  11.     Inc(Counter);
  12.     IF Counter > Limit THEN Halt;
  13.     WriteLn('First Counter :', Counter:5);
  14.   END; { Proc1 }
  15.  
  16.   PROCEDURE Proc2;
  17.   CONST Counter : Integer = 0;
  18.   BEGIN
  19.     Inc(Counter);
  20.     IF Counter > Limit THEN Halt;
  21.     WriteLn('Second Counter :', Counter:5);
  22.   END; { Proc2 }
  23.  
  24. BEGIN
  25.   WHILE True DO
  26.     BEGIN
  27.       Proc1;
  28.       Proc2;
  29.     END;
  30. END. { TestStaticVariables }
  31.  
  32.