type
  stream = file;
  textbuf = array [0..127] of char;
  textrec = record
    handle    : word;
    mode      : word;
    bufsize   : word;
    private   : word;
    bufpos    : word;
    bufend    : word;
    bufptr    : textbuf;
    openfunc  : pointer;
    inoutfunc : pointer;
    flushfunc : pointer;
    closefunc : pointer;
    userdata  : array [1..16] of byte;
    name      : array [0..79] of char;
    buffer    : textbuf;
  end;
  comstr  = string[127];        { command line string }
  pathstr = string[79];         { full file path string }
  dirstr  = string[67];         { drive and directory string }
  namestr = string[8];          { file name string }
  extstr  = string[4];          { file extension string }
  filestr = string[12];         { file name + extension string }
  registers = record case integer of
    0 : (ax,bx,cx,dx,bp,si,di,ds,es,flags : word);
    1 : (al,ah,bl,bh,cl,ch,dl,dh : byte);
  end;
  searchrec = record
    fill : array [1..21] of byte;
    attr : byte;
    time : longint;
    size : longint;
    name : string[12];
  end;
  datetime = record
    year,month,day,hour,min,sec : word;
  end;

  _memorychar = array[1..65534] of char;
  _vectoraddr = record _ofs : word; _seg : word end;
  str3        =              string[3];
  str8        =              string[8];
  str9        =              string[9];
  str32       =             string[32];
  anystr      =                 string;
  asciiz      =  array[0..255] of char;
  asciizptr   =                iiz;
  ar1024      = array[1..1024] of char;


  daterecord = record
    year      : word;
    month     : word;
    date      : word;
    dayofweek : word
  end;

  timerecord = record
    hour      : word;
    minute    : word;
    second    : word;
    hundredth : word
  end;

  clockrecord = record
    clockstartdate : daterecord;
    clockstarttime : timerecord;
    elapsedtime    : timerecord;
    clockisrunning : boolean;
  end;

  _scnpos = record _ch : char; _attr : byte end;
  _scnimage    = array[1..4000] of _scnpos;
  _scnimageptr = _scnimage;
  str80 = string[80];
  _monitortype = (
    _nomonitor,
    _monomonitor,      { monochrome monitor             }
    _colormonitor,     { color monitor (composite also) }
    _enhancedmonitor,  { ega rnhanced color monitor     }
    _anmonomonitor,    { ps/2 analog monochrome monitor }
    _ancolormonitor    { ps/2 analog color monitor      }
  );