unit ECO_str;
interface
uses
  dos,
  unit_str, ECO_ext

  ;


type
  filestr   =            string[12];
  str3      =             string[3];
  anystr    =                string;
  asciiz    = array[0..255] of char;
  asciizptr =               ^asciiz;


const
  fk_ctrl_mark: char = '';


  { extended string supplement }
  procedure __app(var st: string; aps: string);
  function  __backapp(s: string) : string;
  function  __backrem(s: string) : string;
  function  __comp(s1, s2: string): boolean;
  function  __hxdecstr(hexstr: string): longint;
  function  __lo(s: string): string;
  function  __num(nr: longint): string;
  function  __nw(s: string): string;
  function  __overtype(n:byte;strs,strt:string):string;
  function  __pntstr(n: longint): string;
  function  __rep(n: byte; character: char): string;
  function  __retdowstr(dayofweek: word; ful: boolean): string;
  function  __todaystr(ful: boolean): string;
  function  __up(s: string): string;
  function  __uprem(s: string): string;

  {== ASCIIZ ==}
  procedure copystoa(s: anystr; var a; length_a: integer);
  procedure copys2ar(s: anystr; var a; length_a: integer);
  function  read_ctrls(s: anystr): anystr;
  function  write_ctrls(s: anystr): anystr;
  function  asciiz_to_str(a: asciiz): string;
  procedure str_to_asciiz(s: string; var a : asciiz);