Editor program, more elaborate 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);
		if command = 'i' then
			begin
			writeln('Insert Code');
			end;
		if command = 'p' then
			begin
			writeln('Pointer Code');
			end;
		if command = 'd' then
			begin
			writeln('Delete Code');
                	end;
		if command = 's' then
			begin
			writeln('Space Code');
                	end;
		if command = 'c' then
			begin
			writeln('Change Code');
                	end;
		end;
	writeln('End Line Editor');
	readln;
	end.

Sample output:

>Line Editor
>Command?
<i
>Insert Code
>Command?
<d
>Delete Code
>Command?
<q
>End Line Editor