ПЕРВЫЙ_ПРОБНЫЙ_ПОСТ.PAS

Ln 1, Col 1

{ ======================================================== }
{* ПЕРВЫЙ_ПРОБНЫЙ_ПОСТ.PAS - (c) 2026 *}
{ ======================================================== }

program ArticleViewer;

uses Crt, Dos;

const
  ArticleTitle = ' ПЕРВЫЙ_ПРОБНЫЙ_ПОСТ.PAS';
  ArticleDate = ' 23-03-2026';
  ArticleDesc = ' Просто первая запись. Поток сознания.';
  ImagePath = ' /img/borland_post_img1.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.

INS

NUM

HDD

386SX

4MB RAM

                Compiling MICROBLOG.PAS...

                Ready

F1Help

F2Save

F3Open

F4Clear

F5Zoom

F6Next

F7Trace

F8Step

F9Make

F10Menu

12:34:56 C:\BLOG> _ Free mem: 2,124,288 bytes