Очень нужна таблица кодов символов/кнопок в Pascal ABC (псевдографика)

[CnpuHTep]

{---------------------------procedure-----------------информация о станциях Каховской линии----------------------------------------------------------}
 procedure zap(var l:mas{массив};j{счетчик станций},y{счетчик,для выведения инфы о станции}: integer);
 begin
  l[1,j,y]:='      Каховская     ';
  l[1,1,y]:='      Каховская     ';{Каховская ветки}
  l[1,1,2]:='Остановка «Метро "Каховская"»';
  l[1,1,3]:='Автобус:  218к,786,826';
  l[1,1,4]:='Маршрутка: 60м,198м,224м,457м';
  l[1,2,y]:='      Варшавская    ';{Каховская ветки}
  l[1,2,2]:='Остановка «Метро "Варшавская"»';
  l[1,2,3]:='Автобус:  163,147к,225,241,635';
  l[1,2,4]:='Маршрутка:  60м*,198м*,733м   ';
  l[1,3,y]:='      Каширская     ';{Каховская ветки}
  l[1,3,2]:='Остановка «Метро "Каширская"»';
  l[1,3,3]:='Автобус:  164,220,275,298';
  l[1,3,4]:='Маршрутка: 364м,694м';
 end;
{---------------------------procedure-----------------информация о станциях Кольцевой линии----------------------------------------------------------}
procedure zapK(var l:mas{массив};j{счетчик станций},y{счетчик,для выведения инфы о станции}: integer);
 begin
  l[2,j,y]:='      Кольцевая     ';
  l[2,1,y]:='      Таганская     ';{Кольцевая}
  l[2,1,2]:='Остановка «Метро "Таганская"»';
  l[2,1,3]:='Троллейбуc: 26,27,16,63,63к';
  l[2,1,4]:='Маршрутка: 316м';
  l[2,2,y]:='      Киевская      ';{Кольцевая}
  l[2,2,2]:='Остановка «Метро "Киевская"»';
  l[2,2,3]:='Троллейбуc: 7,17*,34*,34к*';
  l[2,2,4]:='Маршрутка: 139,17т*,91м*,205к*';
  l[2,3,y]:='       Курская      ';{Кольцевая}
  l[2,3,2]:='Остановка «Метро "Курская"»';
  l[2,3,3]:='Троллейбуc: Б(черный)';
  l[2,3,4]:='Маршрутка: 538';
 end;
{---------------------------procedure-----------------информация о станциях Филёвской линии----------------------------------------------------------}
 procedure zapF(var l:mas{массив};j{счетчик станций},y{счетчик,для выведения инфы о станции}: integer);
 begin
  l[3,j,y]:='      Филёвская     ';
  l[3,1,y]:='        Фили        ';{Филёвская ветка}
  l[3,1,2]:='Остановка «Метро "Фили"»';
  l[3,1,3]:='Автобус:  109,116,69,653';
  l[3,1,4]:='Маршрутка: 704м,653м';
  l[3,2,y]:='      Арбатская     ';{Филёвская ветка}
  l[3,2,2]:='Остановка «Метро "Арбатская"»';
  l[3,2,3]:='Автобус:  015';
  l[3,2,4]:='Троллейбус: 15,31';
  l[3,3,y]:='      Смоленская    ';{Филёвская ветка}
  l[3,3,2]:='Остановка «Метро "Смоленская"»';
  l[3,3,3]:='Автобус:  64,132';
  l[3,3,4]:='Троллейбус: Б(черный),39,79,79к';
  l[3,4,y]:='      Пионерская    ';{Филёвская ветка}
  l[3,4,2]:='Остановка «Метро "Пионерская"»';
  l[3,4,3]:='Автобус:  73,135,109';
  l[3,4,4]:='Маршрутка: 478м,573м';
 end;
{---------------------------procedure-----------------остальное присвоение----------------------------------------------------------}
procedure other(var l:mas{массив};j{счетчик станций},y{счетчик,для выведения инфы о станции}: integer);
 begin
  l[4,j,y]:='     Люблинская     ';
  l[4,1,y]:='      Дубровка      ';
  l[5,j,y]:='     Калининская    ';
  l[5,1,y]:='       Перово       ';
  l[6,j,y]:='      Бутовская     ';
  l[6,1,y]:='  Буненская Аллея   ';
  l[7,j,y]:='   Замоскворецкая   ';
  l[7,1,y]:='       Орехово      ';
  l[8,j,y]:='   Сокольническая   ';
  l[8,1,y]:='     Сокольники     ';
  l[9,j,y]:='  Калужско-Рижская  ';
  l[9,1,y]:='       Ясенево      ';
  l[10,j,y]:='Арбатско-Покровская ';
  l[10,1,y]:='       Митино       ';
end;
{---------------------------procedure-----------------Programm----------------------------------------------------------}
procedure all;
var l:mas{массив};
a1{{номер ячейки(1 - "маршрут", 2 - "выход"},i{счетчик линий},j{счетчик станций},y{счетчик строк информации}: integer;
k:char{считывает кнопку};
Begin
  repeat
  zap(l,j,y);
  zapK(l,j,y);
  zapF(l,j,y);
  other(l,j,y);
  menu(k,a1);{Первое меню}
   if k=#13 then begin { нажата клавиша <Enter> }
    case a1 of
     1: {Маршрут}
      begin
       menu2(l,k);
       textbackground(white);
      end;
       2: begin clrscr; k:=#27; end;{ выход }
       end;
     end;
     until k<>#8;
end;
Begin
 all;
end.

Вот собственно эта программа)
Сдана давно, всё время забывал выложить)