{ ======================================================== }
{* ЗАПОВЕДИ.PAS - (c) 2026 *}
{ ======================================================== }

program ArticleViewer;

uses Crt, Dos;

const
  ArticleTitle = ' ЗАПОВЕДИ.PAS';
  ArticleDate = ' 01-04-2026';
  ArticleDesc = '';
  ImagePath = ' /img/borland_post_img2.png';
  TextPath = ' ЗАПОВЕДИ.PAS.TXT';

var
  F : Text;
  LineStr : string[160];
  Regs : registers;

{ -------------------------------------------------------- }
{* Процедура вывода графики *}
{ -------------------------------------------------------- }
procedure LoadAndDrawImage(FileName : string);
begin
  TextColor(10); { Green }
  WriteLn('[OK] Loading image: ' + FileName);
  { Имитация вызова прерывания BIOS для смены режима }
  Regs.AX := $0013; { 320x200x256 (VGA) }
  Intr($10, Regs);
  WriteLn('[OK] VGA Mode initialized.');
  WriteLn('[OK] Image rendered in memory.');
  { Пауза, чтобы увидеть "графику" }
  Delay(500);
  Regs.AX := $0003; { Возврат в текстовый режим }
  Intr($10, Regs);
end;

{ -------------------------------------------------------- }
{* Процедура вывода текста из файла *}
{ -------------------------------------------------------- }
procedure PrintArticle(FileName : string);
begin
  Assign(F, FileName);
  {$I-} Reset(F); {$I+}
  if IoResult <> 0 then begin
    WriteLn('[ERR] File not found: ' + FileName);
    Exit;
  end;
  
  TextColor(11); { Light Cyan }
  WriteLn('--- ' + ArticleTitle + ' (' + ArticleDate + ') ---');
  TextColor(10); { Green }
  WriteLn(ArticleDesc);
  WriteLn;
  TextColor(7); { Light Gray (основной текст) }
  
  while not Eof(F) do begin
    ReadLn(F, LineStr);
    WriteLn(LineStr);
  end;
  Close(F);
end;

{ -------------------------------------------------------- }
{* Основное тело программы *}
{ -------------------------------------------------------- }
begin
  ClrScr;
  TextColor(10);
  WriteLn('Turbo Pascal 7.0 (c) 1983-2026');
  WriteLn('System initialized. Checking data files...');
  Delay(300);

  LoadAndDrawImage(ImagePath);
  PrintArticle(TextPath);

  TextColor(14); { Yellow }
  WriteLn;
  WriteLn('[OK] End of file. Press any key to return to menu...');
  ReadKey;
end.