procedure __app(var st: string; aps: string);

   Append string to string;