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

Pascal/Delphi Source File | 2000-03-24 | 306b | 20 lines

{program 049 - Tworzenie roboczego pliku tekstowego}

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

procedure nowyplik;
 begin
  sciezka:='c:\roboczy.txt';
  assign(plik,sciezka);
  rewrite(plik);
  close(plik);
 end;

begin
 clrscr;
 nowyplik;
 readkey;
end.