home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 12 / tricks / markdemo.mod < prev    next >
Encoding:
Text File  |  1989-09-06  |  1.3 KB  |  47 lines
  1. (* ------------------------------------------------------ *)
  2. (*                  MARKDEMO.MOD                          *)
  3. (*    Demoprogramm für die Prozeduren Mark und Release    *)
  4. (* ------------------------------------------------------ *)
  5. MODULE MarkDemo;
  6.  
  7. FROM Storage IMPORT ALLOCATE, DEALLOCATE, HeapAvail,
  8.                     Mark, Release, MainHeap;
  9. FROM IO      IMPORT WrLngCard, WrStr, WrLn,
  10.                     RdKey;
  11.  
  12. VAR
  13.   a1, a2, a  : POINTER TO ARRAY [0..999] OF BYTE;
  14.   i          : CARDINAL;
  15.   ch         : CHAR;
  16.  
  17.   PROCEDURE Report;
  18.   BEGIN
  19.     WrStr ('Freier Speicher : ');
  20.     WrLngCard (LONGCARD (HeapAvail (MainHeap)) * 16, 1);
  21.     WrStr (' Bytes. ');
  22.     ch := RdKey();
  23.     WrLn;
  24.   END Report;
  25.  
  26. BEGIN
  27.   WrStr ('Start :  '); Report;
  28.   NEW (a1); NEW (a2);
  29.   WrStr ('Zweimal NEW. '); Report;
  30.   Mark;
  31.   FOR i := 1 TO 10 DO NEW (a) END;
  32.   WrStr ('Mark gemacht. Danach 10 Mal NEW. ');
  33.   Report;
  34.   Mark;
  35.   FOR i := 1 TO 10 DO NEW (a) END;
  36.   WrStr ('Mark gemacht. Danach 10 Mal NEW. ');
  37.   Report;
  38.   Release;
  39.   WrStr ('Release gemacht. '); Report;
  40.   Release;
  41.   WrStr ('Release gemacht. '); Report;
  42.   DISPOSE (a2); DISPOSE (a1);
  43.   WrStr ('Zweimal DISPOSE gemacht. ');
  44.   Report;
  45. END MarkDemo.
  46. (* ------------------------------------------------------ *)
  47. (*                  Ende von MARKDEMO.MOD                 *)