procedure get_char(var ostr, var str) begin
if ostr==str then return "";
cmp("A")
cmp("1")
cmp(")")
cmp("%")
cmp("#")
charv_(" ","!");
charv("!","\"");
charv("\"","#");
end else begin
charv_("#","$");
charv("$","%");
end
end else begin
charv_("%","&");
charv("&","'");
charv("'","(");
charv("(",")");
end
end else cmp("-")
charv_(")","*");
charv("*","+");
charv("+",",");
charv(",","-");
end else begin
charv_("-",".");
charv(".","/");
charv("/","0");
charv("0","1");
end
end else cmp("9")
cmp("5")
cmp("3")
charv_("1","2");
charv("2","3");
end else begin
charv_("3","4");
charv("4","5");
end
end else cmp("7")
charv_("5","6");
charv("6","7");
end else begin
charv_("7","8");
charv("8","9");
end
end else cmp("=")
cmp(";")
charv_("9",":");
charv(":",";");
end else begin
charv_(";","<");
charv("<","=");
end
end else cmp("?")
charv_("=",">");
charv(">","?");
end else begin
charv_("?","@");
charv("@","A");
end
end else cmp("a")
cmp("Q")
cmp("I")
cmp("E")
cmp("C")
charv_("A","B");
charv("B","C");
end else begin
charv_("C","D");
charv("D","E");
end
end else cmp("G")
charv_("E","F");
charv("F","G");
end else begin
charv_("G","H");
charv("H","I");
end
end else cmp("M")
cmp("K")
charv_("I","J");
charv("J","K");
end else begin
charv_("K","L");
charv("L","M");
end
end else cmp("O")
charv_("M","N");
charv("N","O");
end else begin
charv_("O","P");
charv("P","Q");
end
end else cmp("Y")
cmp("U")
cmp("S")
charv_("Q","R");
charv("R","S");
end else begin
charv_("S","T");
charv("T","U");
end
end else cmp("W")
charv_("U","V");
charv("V","W");
end else begin
charv_("W","X");
charv("X","Y");
end
end else cmp("]")
cmp("[")
charv_("Y","Z");
charv("Z","[");
end else begin
charv_("[","\\");
charv("\\","]");
end
end else cmp("_")
charv_("]","^");
charv("^","_");
end else begin
charv_("_","`");
charv("`","a");
end
end else cmp("q")
cmp("i")
cmp("e")
cmp("c")
charv_("a","b");
charv("b","c");
end else begin
charv_("c","d");
charv("d","e");
end
end else cmp("g")
charv_("e","f");
charv("f","g");
end else begin
charv_("g","h");
charv("h","i");
end
end else cmp("m")
cmp("k")
charv_("i","j");
charv("j","k");
end else begin
charv_("k","l");
charv("l","m");
end
end else cmp("o")
charv_("m","n");
charv("n","o");
end else begin
charv_("o","p");
charv("p","q");
end
end else cmp("y")
cmp("u")
cmp("s")
charv_("q","r");
charv("r","s");
end else begin
charv_("s","t");
charv("t","u");
end
end else cmp("w")
charv_("u","v");
charv("v","w");
end else begin
charv_("w","x");
charv("x","y");
end
end else cmp("{")
charv_("y","z");
charv("z","{");
end else begin
charv_("{","|");
charv("|","}");
charv("}","~");
end
return "";
end