unit ECO_exe;
interface
uses
   dos

   ;

type
  combuffer = record                 { exec communications buffer       }
    ident     : array[1..8] of char; { identification       }
    comvector : word;                { address stored here  }
    common    : pointer;             { common data address  }
    comsize   : word;                { common data size     }
    progpath  : string[67];          { next program         }
    cmdline   : string[127];         { next command line    }
    default   : string[67];          { default program      }
    comspec   : string[67];          { command full path    }
    lasterror : word;                { last dos 4b error    }
  end;
  combufptr =  buffer;


function getptr(vector : byte) : combufptr;
function cseg_t(var comseg,compars : word; vector : byte) : word;
function chain_t(prog,cmd : string; vector : byte) : word;
function default_t(prog : string; vector : byte) : word;