Program to encrypt by replacing one alphabet by another.

	program transl;
	var
		alphafrom, alphato, char, outchar: string;
		where: integer;
	begin
	writeln('Enter source alphabet');
	readln(alphafrom);
	writeln('Enter target alphabet');
	readln(alphato);
	
	while true do
		begin
	
		writeln('Enter character');
		readln(char);
		where := pos(char,alphafrom);
		outchar := copy(alphato, where, 1);
		writeln(outchar);
	
		end;
	
	readln;
	end.

Sample output:
NOTES:

>Enter source alphabet
<abcdefghijklmnopqrstuvwxyz
>Enter target alphabet
<gh sot ymeldpc n bf  i aur
>Enter character
<b
>h
>Enter character
<j
>e
>Enter character
<n
>c
>Enter character
<e
>o
>Enter character
<p
>n
>Enter character
<f
>t
>Enter character
<v
>i
>Enter character
<p
>n
>Enter character
<y
>u
>Enter character
<^C

CRYPTOQUOTES used:

he continued to be an               
BJ NEPFVPYJL FE RJ XP

infant long after he                
VPSXPF KEPA XSFJZ BJ

ceased to be a prodigy              
NJXDJL FE RJ X MZELVAH. --

robert moses      
ZERJZF IEDJD



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.

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.

Editor program, partially completed.

	program editor;
	var
		text, command, new, pform: 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 what?');
			readln(new);
			text := copy(text,1,ptr-1) + new + copy(text,ptr,
		 	length(text)-ptr+1);
			pform := copy(text,1,ptr-1) + '*' + copy(text,ptr,
		 	length(text)-ptr+1);
			writeln(pform);
			end;
		if command = 'p' then
			begin
			writeln('Enter Pointer Value');
			readln(ptr);
			pform := copy(text,1,ptr-1) + '*' + copy(text,ptr,
		 	length(text)-ptr+1);
			writeln(pform);
			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 what?
<hello
>*hello
>Command?
<i
>Insert what?
<say 
>*say hello
>Command?
<p
>Enter Pointer Value
<7
>say he*llo
>Command?
<i
>Insert what?
< wants je
>say he* wants jello
>Command?
<q
>End Line Editor