home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l200 / 6.ddi / LIB / RUN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1986-08-21  |  306 b   |  20 lines
  1. /*    RUN(file) - terminate current program, execute new file
  2.  
  3.     Copyright (c) 1983, 1984 by JMI Software Consultants, Inc.
  4. */
  5. #include "acom.h"
  6.  
  7. VOID RUN(file, type)
  8.     BTEXT *file;
  9.     INT type;
  10.     {
  11.     IMPORT BOOL run_flag;
  12.  
  13.     if (type < 0)
  14.         {
  15.         BCLOSE(0);
  16.         run_flag = YES;
  17.         }
  18.     CHAIN(file);
  19.     }
  20.