home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / Source Code ƒ.sea / Source Code ƒ / Modula2 ƒ / DataStack Filer / DemoTest.mod / DemoTest.mod.rsrc < prev    next >
Encoding:
Text File  |  1990-06-15  |  464 b   |  19 lines  |  [TEXT/MPS ]
  1.     2 R~TEXTMPS Ptr :Ptr;
  2.                             idKeys :DataKeysHnd;
  3.                             nameKeys :DataKeysHnd;
  4.                             growStk :GrowStack;
  5.                             END;
  6.  
  7.  
  8.     HeadPtr = POINTER TO CardHeader;
  9.     CardHeader = RECORD
  10.                         cName :Str31; (* code requires cName is first in record. *)
  11.                         id :LONGCARD;
  12.                         
  13.                         (* stuff *)
  14.                         END;
  15.     CONST
  16.         headerSize = SIZE(CardHeader);
  17.  
  18.  
  19. PROCEDURE AllocContig(refNum:INTEGER; VAR count:LONGIN