Таблица рекордов: оба показа оригинала, ввод имени, переходы полосами

pop_hof.c был написан, но никуда не вызывался: после финала автомат уходил
мимо него в title, а на титрах экран получался чёрным. Теперь это хвост
end_sequence и шаг show_title между credits и attract-demo, как в оригинале.

Два корня пустого экрана:

- story.pal — 256 записей, и запись 0x3F (цвет глифов шрифта) в ней чёрная:
  текст рисовался, но был не виден. Генератор кладёт туда золотой 0xB7;
- полосовой переход копирует страницу акселератором, а тот читает ОЗУ-копию,
  куда прозрачный блит текста не пишет. Строки рисуются после перехода,
  прямо в видимую страницу.

Попутно:

- s5 в архиве PV — фон таблицы (рамка story + логотип на y=24, HOF_POP);
- отдельный индекс палитры под фон текстовой рамки: финал красит его в
  #800000, титры оставляют #100060 (load_title_images(bgcolor)). Прежний
  ремап в индекс 9 подменить было нельзя — им нарисована сама титульная
  картинка;
- второй набор глифов в font.atl цветом 0x3E: у SDLPoP шрифт маска и
  show_hof_text рисует текст дважды разным цветом, у нас цвет запечён в
  пиксели. Каталог SPA1 держит счётчик в байте, поэтому набор обрезан по '_';
- общий pop_screen_present_ltr(): им теперь пользуются story-переход интро,
  титры, таблица и титульная картинка финала. Заодно вернулся пропущенный
  шаг show_title — экран с логотипом и Jordan Mechner между «свадьбой» и
  титрами (BUGS_CLOSED#cutscene-ltr).

Формат POP.HOF — 6 записей, имя до 15 символов, версия 2. Проверено в MAME
на сборке LEVEL=14: HAIL → титульная картинка → таблица с полосой ввода и
временем справа → ввод имени → титульная картинка; на следующем запуске
таблица показывается между credits и demo.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>

applications/PoP/roomtest/pop_ui.c

@@ -7,6 +7,7 @@
  */
 #include <stdint.h>
 #include <string.h>
+#include <kbd_raw.h>
 #include <graphics.h>
 #include <gfx.h>
 #include <sprite.h>
@@ -20,11 +21,19 @@ typedef struct {
     uint8_t base;
     uint8_t ascent;
     uint8_t space;
+    uint8_t first;              /* первый код, который есть в наборе */
+    uint8_t last;
 } pop_font_desc_t;
 
+/* Тёмный набор — тот же мелкий шрифт другим цветом; глифов в нём меньше
+ * (см. pop_font.h), поэтому диапазон кодов хранится у каждого набора. */
 static const pop_font_desc_t font_desc[] = {
-    { POP_FONT_SMALL_BASE, POP_FONT_SMALL_ASCENT, POP_FONT_SMALL_SPACE },
-    { POP_FONT_BIG_BASE,   POP_FONT_BIG_ASCENT,   POP_FONT_BIG_SPACE }
+    { POP_FONT_SMALL_BASE, POP_FONT_SMALL_ASCENT, POP_FONT_SMALL_SPACE,
+      POP_FONT_FIRST, POP_FONT_LAST },
+    { POP_FONT_BIG_BASE,   POP_FONT_BIG_ASCENT,   POP_FONT_BIG_SPACE,
+      POP_FONT_FIRST, POP_FONT_LAST },
+    { POP_FONT_DARK_BASE,  POP_FONT_BIG_ASCENT,   POP_FONT_BIG_SPACE,
+      POP_FONT_DARK_FIRST, POP_FONT_DARK_LAST }
 };
 
 static atlas_t font_at;
@@ -38,8 +47,8 @@ __at (0x4000) uint8_t pop_pal_buf[256];
 
 static uint8_t text_index(const pop_font_desc_t *font, uint8_t ch)
 {
-    if (ch < POP_FONT_FIRST || ch > POP_FONT_LAST) ch = '?';
-    return (uint8_t)(font->base + ch - POP_FONT_FIRST);
+    if (ch < font->first || ch > font->last) ch = '?';
+    return (uint8_t)(font->base + ch - font->first);
 }
 
 int pop_ui_init(void) __banked
@@ -339,6 +348,37 @@ void pop_screen_present(uint8_t page) __banked
     gfx_set_visible_page(page);
 }
 
+/* transition_ltr() SDLPoP: подготовленная СКРЫТАЯ страница переползает на
+ * видимую узкими вертикальными полосами слева направо.  У оригинала
+ * 2px/120 FPS; здесь 4px/60 FPS даёт ту же длительность (~1,3 с), не
+ * удваивая число полных копий 320x256.
+ *
+ * Страницы при этом НЕ меняются местами: копируем в видимую, как оригинал
+ * копирует offscreen в onscreen.  Поэтому у вызывающего после перехода на
+ * ЭКРАНЕ и в скрытой странице лежит одно и то же. */
+void pop_screen_present_ltr(void) __banked
+{
+    gfx_rect_t stripe;
+    uint8_t visible = gfx_get_visible_page();
+    int x;
+
+    gfx_set_draw_page(visible);       /* source gfx_copy_page = target */
+    stripe.y = 0;
+    stripe.h = GFX_HEIGHT;
+    for (x = 0; x < GFX_WIDTH; x += 4) {
+        if (kbd_raw_any_down()) {
+            /* Прервали — дорисовать остаток разом, а не бросить полукадр. */
+            stripe.x = 0; stripe.w = GFX_WIDTH;
+            gfx_copy_page(&stripe, GFX_COPY_DIRECT);
+            return;
+        }
+        stripe.x = x;
+        stripe.w = (uint16_t)((GFX_WIDTH - x < 4) ? GFX_WIDTH - x : 4);
+        gfx_copy_page(&stripe, GFX_COPY_DIRECT);
+        gfx_wait_vsync();
+    }
+}
+
 /* Нарисовать одну полосу и отпустить её страницу.  Общая часть обоих
  * загрузчиков ниже: они отличаются только тем, откуда взялся атлас. */
 static int strip_blit(atlas_t *at, int x, int *y)