home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Action 48
/
cdactioncoverdisc482000.iso
/
Bonus
/
bon.exe
/
pascal
/
prog051.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
2000-03-24
|
528b
|
30 lines
{program051 - Pliki cd.}
program program051;
uses crt;
var sciezka:string;
plik:text;
koniec:byte;
tekst:string;
procedure textdopliku;
begin
koniec:=0;
sciezka:='c:\roboczy.txt';
assign(plik,sciezka);
append(plik);
repeat
write('Podaj tekst do wpisu: ');
readln(tekst);
writeln(plik,tekst);
writeln('Dalej/ZakoΣcz [coÿ/esc]');
if readkey=#27 then koniec:=1;
until koniec=1;
close(plik);
end;
begin
clrscr;
textdopliku;
readkey;
end.