й програмний продукт). Також програма може використовуватися для навчання дітей у дитячих садах роботі на персональних комп'ютерах. І, нарешті, їй можуть скористатися студенти I курсу для здачі її як Курсовий роботи на наступному курсі. p align=center> Лістинг.
Вихідний текст програми.
Program Redaktor;
Uses Crt, Tim; {використовувати модулі Crt і Tim}
Label b; {мітка}
Var {тіло}
Programname, Cmdline: string;
nn, i, x, y: integer;
f1, f1_new: text;
Name, New_name: string [12];
txt, text: string;
ch: char;
begin
i: = 1;
textbackground (red);
clrscr;
textcolor (yellow);
gotoxy (22,10);
writeln ('Текстовий процесор Timofeev Word ');
gotoxy (22,11);
writeln ('Версія 1.0 (2001 рік) ');
gotoxy (40,15);
writeln ('Склав Тимофєєв Тимур (2-АС-3) ');
textcolor (green);
gotoxy (40,16);
writeln ('Всі права захищені.');
gotoxy (40,17);
writeln ('Незаконне копіювання');
gotoxy (40,18);
writeln ('або підробка без згоди автора ');
gotoxy (40,19);
writeln ('переслідується за поняттями ! '); p> delay (5000);
textcolor (yellow);
table;
gotoxy (2,21);
write ('Введіть ім'я:');
readln (name);
assign (f1, name);
rewrite (f1);
gotoxy (2,21);
write ('Вводите текст!');
gotoxy (1,2);
repeat
write (chr (179), ':>');
readln (txt);
writeln (f1, txt);
until txt ='';
close (f1);
gotoxy (2,21);
writeln ('Введення закінчено, натисніть чого-небудь ...');
repeat
readkey;
keys (nn);
case nn of {визначає натискання функціональних клавіш}
59: menu; {F1}
60: begin {F2}
table;
gotoxy (2,21);
write (' '); p> gotoxy (2,21);
write ('Введіть ім'я:');
readln (name);
assign (f1, name);
rewrite (f1);
gotoxy (2,21);
write ('Вводите текст!');
gotoxy (1,2);
repeat
write (chr (179), ':>');
readln (txt);
writeln (f1, txt);
until txt ='';
close (f1);
gotoxy (2,21);
writeln ('Введення закінчено, натисніть чого-небудь ... '); p> end;
61: begin {F3}
gotoxy (2,21);
write ('Введіть ім'я файлу, в який копір-я файл ', name,' -> ');
readln (new_name);
reset (f1);
assign (f1_new, new_name);
append (f1_new);
while not eof (f1) do
begin
readln (f1, txt);
writeln (f1_new, txt);
...
