end;
close (f1);
close (f1_new);
gotoxy (2,21);
writeln ('Файл', name, 'скопійований в ', New_name,' натисніть
чого-небудь ... ');
end;
62: begin {F4}
gotoxy (2,21);
write (' '); p> gotoxy (2,21);
write ('Введіть нове ім'я файлу:');
readln (new_name);
assign (f1, name);
rename (f1, new_name);
gotoxy (2,21);
writeln ('Файл', name, 'періменован в ', New_name,' натисніть
чого-небудь ... '); p> end;
63: begin {F5}
erase (f1);
gotoxy (2,21);
writeln ('Файл', name, 'видалений з диска, натисніть чого-небудь ... ');
end;
64: begin {F6}
{$ I-}
repeat
gotoxy (2,21);
write ('Введіть ім'я файлу для зчитування тексту -> ');
readln (name);
assign (f1, name);
reset (f1);
if ioresult <> 0 then
begin
gotoxy (2,21);
writeln ('Файл не знайдено ... '); p> close (f1);
end;
until ioresult = 0;
{$ I +}
table;
gotoxy (1,2);
while not eof (f1) do
begin
readln (f1, txt);
writeln (chr (179), txt);
end;
close (f1);
gotoxy (2,21);
write ('Файл лічений, натисніть чого-небудь ... '); p> end;
68: goto b; {F10} {Відбувається вихід на мітку}
end;
until i <0; {зчитуватися функціональні клавіші поки i <0,
а тому i = 1 і не змінюється, то цей процес нескінченний}
b: end.
Текст модуля.
Unit Tim;
Interface
Uses Crt, Dos;
Procedure keys (var n: integer);
Procedure table;
Procedure Enter_sandman;
Procedure menu;
Implementation
Procedure keys (var n: integer); {процедура натискання клавіші}
var c: char;
begin
if keypressed then
begin
c: = readkey;
if c = # 0 then c: = readkey;
n: = ord (c);
end;
end;
Procedure Enter_sandman; {музика}
Const
m: array [1 .. 6] of integer = (165,330,392,233,220,330);
t: array [1 .. 6] of integer = (1100,600,600,600,1100,600);
e: array [1 .. 7] of integer = (165,165,165,165,165,165,170);
r: array [1 .. 7] of integer = (600,600,600,600,600,600,1100);
w: array [1 .. 5] of integer = (167,167,167,294,233);
q: array [1 .. 5] of integer = (1100,600,600,600,1100);
o: array [1 .. 9] of integer = (165,182,165,182,165,196,165,182,165);
b: array [1 .. 9] of integer = (600,1100,600,600,600,600,600,600,3000);
var a, u, z, x: integer; i: byte;
begin
for a: = 1 to 4 do
...
