История изменений

uses
  {$ifdef unix}cwstring,{$endif}
  SysUtils;
type
  cp866String = type AnsiString(866);
var
  i, j: Integer;
  s: cp866String;
  t: UTF8String;
begin
  WriteLn('CP866 codetable');  
  Write('':4); for j:=0 to 15 do Write('.':2,IntToHex(j,1)); WriteLn;
  s:=' ';
  for i:=2 to 15 do begin
    Write(IntToHex(i,1),'.',' |');
    for j:=0 to 15 do begin
      t:=s; Inc(s[1]);
      Write('':2,t);
    end;
    WriteLn;
  end;
end.

CP866 codetable
     .0 .1 .2 .3 .4 .5 .6 .7 .8 .9 .A .B .C .D .E .F
1. |  ►  ◄  ↕  ‼  ¶  §  ▬  ↨  ↑  ↓  →  ←  ∟  ↔  ▲  ▼
2. |     !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /
3. |  0  1  2  3  4  5  6  7  8  9  :  ;  <  =  >  ?
4. |  @  A  B  C  D  E  F  G  H  I  J  K  L  M  N  O
5. |  P  Q  R  S  T  U  V  W  X  Y  Z  [  \  ]  ^  _
6. |  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o
7. |  p  q  r  s  t  u  v  w  x  y  z  {  |  }  ~  ⌂
8. |  А  Б  В  Г  Д  Е  Ж  З  И  Й  К  Л  М  Н  О  П
9. |  Р  С  Т  У  Ф  Х  Ц  Ч  Ш  Щ  Ъ  Ы  Ь  Э  Ю  Я
A. |  а  б  в  г  д  е  ж  з  и  й  к  л  м  н  о  п
B. |  ░  ▒  ▓  │  ┤  ╡  ╢  ╖  ╕  ╣  ║  ╗  ╝  ╜  ╛  ┐
C. |  └  ┴  ┬  ├  ─  ┼  ╞  ╟  ╚  ╔  ╩  ╦  ╠  ═  ╬  ╧
D. |  ╨  ╤  ╥  ╙  ╘  ╒  ╓  ╫  ╪  ┘  ┌  █  ▄  ▌  ▐  ▀
E. |  р  с  т  у  ф  х  ц  ч  ш  щ  ъ  ы  ь  э  ю  я
F. |  Ё  ё  Є  є  Ї  ї  Ў  ў  °  ∙  ·  √  №  ¤  ■   

uses
  {$ifdef unix}cwstring,{$endif}
  SysUtils;
type
  cp866String = type AnsiString(866);
var
  i, j: Integer;
  s: cp866String;
  t: UTF8String;
begin
  WriteLn('CP866 codetable');  
  Write('':4); for j:=0 to 15 do Write('.':2,IntToHex(j,1)); WriteLn;
  s:=' ';
  for i:=2 to 15 do begin
    Write(IntToHex(i,1),'.',' |');
    for j:=0 to 15 do begin
      t:=s; Inc(s[1]);
      Write('':2,t);
    end;
    WriteLn;
  end;
end.