3
{ Program to demonstrate the Mark and Release functions. }
5
Var P,PP,PPP,MM : Pointer;
10
Writeln ('Getmem 100 : Memory available : ',MemAvail,' (marked)');
12
Writeln ('Getmem 1000 : Memory available : ',MemAvail);
14
Writeln ('Getmem 10000 : Memory available : ',MemAvail);
16
Writeln ('Released : Memory available : ',MemAvail);
17
{ At this point, PP and PPP are invalid ! }