18 lines
333 B
ObjectPascal
18 lines
333 B
ObjectPascal
// Ïðîñòåéøèé òåêñòîâûé ðåäàêòîð
|
|
// Äëÿ çàïóñêà ïðîãðàììû èñïîëüçóéòå Shift+F9 !!!
|
|
uses CRT;
|
|
|
|
begin
|
|
SetWindowTitle('Òåêñòîâûé ðåäàêòîð (Enter - íîâàÿ ñòðîêà, Esc - âûõîä)');
|
|
clrScr;
|
|
repeat
|
|
var c := ReadKey;
|
|
case c of
|
|
#13: writeln;
|
|
#27: break;
|
|
#32..#255: write(c);
|
|
#0: c := ReadKey;
|
|
end;
|
|
until false;
|
|
end.
|