FUNCTION CONCAT(Arg1_str,
		Arg2_str  : MSTRING ): DSTRING;
{
      NEW := CONCAT(ARGUMENT1, ARGUMENT2);
      NAME := CONCAT(NAME,ADDRESS);

GLOBAL	  DEFAULT = DEFAULT line length;
	  DSTRING = STRING DEFAULT;
	  SMAX = 255;
	  MSTRING = STRING SMAX;
}
var	ix : 1..SMAX;
	DEST: DSTRING;
begin
  If ( (length(Arg1_str)+length(Arg2_str)) <= DEFAULT ) then
    begin
      DEST := arg1_str;
      append(DEST,arg2_str);
    end
  Else { concatenate all strings but truncate as required }
    begin
      { max string length = 255 chars }
      setlength(arg2_str,DEFAULT-length(arg1_str));
      { pick up the first argument string }
      DEST := arg1_str;
      { now concat argument 2 string }
      append(DEST,arg2_str);
    end;
  CONCAT := DEST;
End{of CONCAT};
arg1_str;
      { now concat argument 2 string }
      append(DEST,arg2_str);
    end;
  CONCA