home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / AI_OCT86.ZIP / AIAPP3.FIG < prev    next >
Encoding:
Text File  |  1986-07-16  |  384 b   |  14 lines
  1.  
  2.  FUNCTION alloc_str(typ : node_type ; s : string80) : node_ptr ;
  3.   VAR
  4.    pt : node_ptr ;
  5.   BEGIN
  6.    get_memory(pt) ;
  7.    pt^.tag := typ ;
  8.    pt^.string_data := s ;
  9.    alloc_str := pt ;
  10.   END ; (* alloc_str *)
  11.  
  12.  
  13. Figure 3 - Low level allocation routine for strings.
  14.