home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / EDITOR / MG2A_SRC.ZIP / SYS / PRIME / SPAWN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-08-23  |  496 b   |  25 lines
  1. /*
  2.  * prime spawn.c for micrognuemacs
  3.  */
  4. #include       "def.h"
  5.  
  6. spawncli(f, n)
  7. {
  8.        fortran void comlv$();
  9.        ttcolor(CTEXT);
  10.        ttnowindow();
  11.        ttmove(nrow-1, 0);
  12.        if (epresf != FALSE) {
  13.            tteeol();
  14.            epresf = FALSE;
  15.        }
  16.        ttclose();
  17.        comlv$();
  18.        sgarbf = TRUE;        /* Force repaint.    */
  19.        ttopen();
  20. #ifndef NO_DIR
  21.        (void) dirinit();    /* current directory may have changed */
  22. #endif
  23.        return (TRUE);
  24. }
  25.