_left_just_str       = 0;
  _right_just_str      = 1;
  _center_str          = 2;

  _rem_white_str       = $0001;
  _rem_lead_white_str  = $0002;
  _rem_trail_white_str = $0004;
  _reduce_white_str    = $0008;
  _save_quoted_str     = $0010;
  _to_upcase_str       = $0020;
  _to_lowcase_str      = $0040;
  _discard_str         = $0080;

  _usa_dt_str          = 0;
  _euro_dt_str         = 1;
  _year_dt_str         = 2;
  _mont_dt_str         = 3;
  _form_dt_str         = 4;

  _12hour_str          = $0001;
  _inc_sec_str         = $0002;
  _inc_tic_str         = $0004;
  _inc_ampm_str        = $0008;
  _standard_str        = $0009;
  _complete_str        = $0006;
  _dos_dir_str         = $0011;

  _ampm_str            : array[0..1] of string[3] = (' AM',' PM');
  _ap_str              : string[2] = 'ap';

  _fmt_buflen_str      = 256;

  _strmonths  : array[1..12] of string[9] = (
    'January', 'February', 'March', 'April', 'May', 'June', 'July',
    'August', 'September', 'October', 'November',  'December'
  );

  _strdays    : array[0..6] of string[9] = (
    'Sunday', 'Monday', 'Tuesday', 'Wednesday',
    'Thursday', 'Friday', 'Saturday'
  );

  _strusach   : char = '/';
  _streuroch  : char = '-';
  _strmoneych : char = 'f';

  fk_ctrl_mark: char = '';
  nonblock    : char = '-';
  block       : char = 'X';
  maxstr_     =        255;

  logfilename : string[12] = 'ECOPURGE.LOG';         { 22 Aug 69  14:50.11 }
  programname : string[40] =     'ECOPURGE';
  purge : byte =   7;
  lines : word = 512;