TP3/shell/tests/fixtures/t95_strint.pas

program t95_strint;

{ t95 -- Str(integer, S).  CALC.INC's Help does `Str(count,st)' after reading
  the help file.  No width/decimals: TP3's default width for an integer is
  zero, and st is a string[10]. }

var
  S : string[10];
  I : integer;
begin
  I := 42;
  Str (I, S);
  writeln (S);
  I := -7;
  Str (I, S);
  writeln (S);
  Str (0, S);
  writeln (S)
end.