{ BASE STRING FUNCTIONS XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX }
  function __leftstr(source : string;   num : word): string;
  function __rightstr(source : string; chpos : word): string;
  function __substr(source : string;   chpos, num: word): string;
  function __midstr(source,target : string; chpos: word): string;
  function __fillstr(
    fillch : char; target : string;
    chpos,num : word
  ): string;
  function __xlatestr(source,table,trans : string) : string;
  function __juststr(
    source : string;  fillch : char;
    fieldsize : word;
    justcode : word
  ): string;
  function __cvtstr(source : string; cvtcode : word) : string;
  function __entabstr(source : string; incr : byte) : string;
  function __detabstr(
    source : string; incr : byte;
    var remstr : string
  ): string;
  function __toradstr(
    intvalue : longint;
    size,radix,width: word
  ): string;
  function __todecstr(intvalue: longint; size: word) : string;
  function __tohexstr(intvalue: longint; size: word) : string;
  function __ptr2str(thisptr: pointer): string;
  function __formstr(mask : string; x : real) : string;
  procedure __initfstr(var fmtfil : text);
  function __retbfstr(var fmtfil : text) : string;
  function __dirstr(srec : searchrec) : string;
  function locase(ch : char) : char;