home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST1301.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-17  |  527 b   |  30 lines
  1. Program FailHeap;
  2.  
  3. Type
  4.   ListPtr = ^ListObj;
  5.   ListObj = Object
  6.               ptr : Pointer;
  7.               ptrSize : Word;
  8.               Constructor Init ( newSize : Word );
  9.             End;
  10.  
  11. Constructor Init ( newSize : Word );
  12. Begin
  13.   GetMem ( ptr, newSize );
  14.   If ( ptr = NIL ) Then
  15.     Fail;
  16.   ptrSize := newSize;
  17.   next := NIL;
  18. End;
  19.  
  20. Var
  21.   i    : Integer;
  22.   list : Array [1..200] of ListPtr;
  23.  
  24. Begin
  25.   Repeat
  26.     New ( list [ i ], Init ( 32767 ) );
  27.     Inc ( i );
  28.   Until ( list = NIL );
  29. End.
  30.