Editor program, framework.

	program editor;
	var
		text, command: string;
		ptr: integer;
	begin
	writeln('Line Editor');
	text := '';
	ptr := 0;
	command := '';
	while command <> 'q' do
		begin
		writeln('Command?');
		readln(command);
		end;
	writeln('End Line Editor');
	readln;
	end.
Sample Output

>Line Editor
>Command?
<a
>Command?
<b
>Command?
<c
>Command?
<q
>End Line Editor