CD Action 48/cdactioncoverdisc482000.iso/Bonus/bon.exe/pascal/prog050.pas

Pascal/Delphi Source File | 2000-03-24 | 369b | 21 lines

{program050 (tada! programik jubileuszowy:)) - Zapisywanie informacji do pliku}

program program050;
 uses crt;
  var sciezka:string;
      plik:text;

procedure textdopliku;
 begin
  sciezka:='c:\roboczy.txt';
  assign(plik,sciezka);
  append(plik);
  writeln(plik,'linijka 1');
  close(plik);
 end;

begin
 clrscr;
 textdopliku;
 readkey;
end.