mirror of
https://github.com/vapaamies/KolibriOS.git
synced 2024-09-20 01:41:03 +02:00
17 lines
185 B
ObjectPascal
17 lines
185 B
ObjectPascal
|
program Echo;
|
||
|
|
|
||
|
|
uses
|
||
|
|
CRT;
|
||
|
|
|
||
|
|
var
|
||
|
|
S: ShortString;
|
||
|
|
begin
|
||
|
|
InitConsole('Echo');
|
||
|
|
repeat
|
||
|
|
Write('> ');
|
||
|
|
ReadLn(S);
|
||
|
|
if Length(S) <> 0 then
|
||
|
|
WriteLn(S);
|
||
|
|
until False;
|
||
|
|
end.
|