Program Strings1;

Var S1,S2 : String;

Function CopyStr(S:String):String; Far; External;
{$L COPYSTR}

Begin
  S1 := 'Moin Moin';
  S2 := CopyStr(S1);
  WriteLn(S2);
  WriteLn(CopyStr('Thats all folks'));
  S1 := 'Really all :-)';
  WriteLn(CopyStr(S1))
End.