TP3/shell/tests/fixtures/t102_copy.pas

program t102_copy;

{ t102 -- the Copy string builtin: clipping at both ends and an empty result. }

var
  S, T : string[20];
begin
  S := 'abcdef';
  T := Copy (S, 2, 3);
  writeln (T);
  T := Copy (S, 1, 99);
  writeln (T);
  T := Copy (S, 0, 2);
  writeln (T);
  T := Copy (S, 10, 2);
  writeln ('[', T, ']');
  T := Copy (S, 3, 0);
  writeln ('[', T, ']')
end.