home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / ALLOCATE.PRG next >
Text File  |  1990-10-22  |  516b  |  20 lines
  1. ***********
  2. * ALLOCATE.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO ALLOCATE WITH <bytes>
  7. * RETURN: <expC> 8-byte hex address of segment and offset. NULL <expC>
  8. *         if memory cannot be allocated.
  9. ***********
  10. PARAMETERS par1 
  11. CALL Trpass  WITH par1
  12. CALL Trexe   WITH "ALLOCATE"
  13. CALL Trexe WITH "TRRETCLEN"
  14. IF fox
  15.    PRIVATE tr_temp
  16.    tr_temp = SUBSTR(tr_retc,1,tr_retn)
  17.    RETURN (tr_temp)
  18. ENDIF
  19. * eof allocate * 
  20.