procedure ShowTitleScreen;
begin
    ClrAll;
    _dlist := word(@DL_title);
    Poke(710,0); // bgcolor
    Poke(712,0); // border color
    Writeln('Vox Regis - wczesna wersja alpha');
    Writeln;
    Writeln;
    Writeln('LEGENDA:');
    Writeln;
    Writeln(Char(ICON_MONEY),' - skarbiec');
    Writeln(Char(ICON_POPULATION),' - populacja');
    Writeln(Char(ICON_ARMY),' - armia');
    Writeln;
    Writeln(Char(ICON_HEALTH),' - zdrowie');
    Writeln(Char(ICON_HAPPINES),' - szczescie');
    Writeln(Char(ICON_CHURCH),' - religia');
    Writeln;
    Writeln;
    Writeln(getString(0));
    Writeln(getString(1));
    Writeln(getString(2));
    Writeln;
    Writeln(getString(3));
    Writeln(getString(4));
    Writeln(getString(5));
end;