{ SECONDARY STRING FUNCTIONS XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX }
  procedure __app(var st: string; aps: string);
  function  __backapp(s: string) : string;
  function  __backrem(s: string) : string;

  function  __comp(s1, s2: string): boolean;
  function  __overtype(n:byte;strs,strt:string):string;
  function  __rep(n: byte; character: char): string;
  function  __nw(s: string): string;

  function  __pntstr(n: longint): string;
  function  __up(s: string): string;
  function  __lo(s: string): string;
  function  __uprem(s: string): string;

  function  __hexdecstr(hexstr: string): longint;
  function  __str(st: string): integer;
  function  __num(nr: longint): string;
  function  __val(st: string): longint;

  function  __byte2str(b: byte): str8;
  function  __str2byte(s: str8): byte;
  function  __longint2str(l: longint): str32;
  function  __str2longint(s: str32): longint;

  procedure __str2obj(s: anystr; var a; length_a: integer);
  procedure __str2arr(s: anystr; var a; length_a: integer);
  function  __readctrls(s: anystr): anystr;
  function  __writectrls(s: anystr): anystr;
  function  __az2str(a: asciiz): string;
  procedure __str2az(s: string; var a : asciiz);

  procedure __clr1024(var a: ar1024);
  procedure __app1024(var app: ar1024; s: string);
  function  __len1024(var a: ar1024) : word;
  procedure __del1024(var a: ar1024; b, l: word);
  procedure __ins1024(var a: ar1024; b : word; s: string);
  procedure __write1024(var a: ar1024);