home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CHAIN4.ZIP / CHAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-11-16  |  596 b   |  24 lines
  1. unit Chain;
  2.   {-Chaining facility for Turbo 4}
  3.  
  4. interface
  5.  
  6.   function Chain4(Path, CmdLine : string) : word;
  7.     {-Chain to file named in Path}
  8.     {-CmdLine must be no longer than 94 characters}
  9.     {If it returns, a DOS error code is in the result}
  10.  
  11.   {==========================================================================}
  12.  
  13. implementation
  14.  
  15.   {$L CHAIN}
  16.  
  17.   function Chain4(Path, CmdLine : string) : word;
  18.     {-Chain to file named in Path}
  19.     {-CmdLine must be no longer than 94 characters}
  20.     {If it returns, a DOS error code is in the result}
  21.   external;
  22.  
  23. end.
  24.