Иван Сергеевич Ватаев

Иван Сергеевич рекомендовал мне Новое лекарство.
Я так увлёкся Переписыванием листинга Программы Горная гряда для ZX,
что не поставил печати в Регистратуре. Приехал в аптеку и ахнул:
- Ой, да забыл. Печалька ...
Но ничего. Оланзапин ещё есть, а печати приеду завтра с утра поставлю.

Unit ZetaSeti1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, Math, Unit2;

Const

//ZETA RETICULI SLAVES = 0;
GOD_WORLD = 1;
X = 1024;
Y = 2048;
//Не бойтесь Зетов. Zeta Reticuli
Z = 800;

type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
// procedure MoveStars(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

starsx :array of integer;
starsy :array of integer;
starsz :array of integer;

mountx :array of integer;
mounty :array of integer;

h: integer;
dir: word;
shaggryada: integer;
gryada: integer;

xmin,ymin,xmax,ymax: integer;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
i: word;
begin
Randomize;
xmin:=0;
ymin:=0;
xmax:=Form1.Image1.Width;
ymax:=Form1.Image1.Height;
Form1.Image1.Canvas.Brush.Color:=clblack;
Form1.Image1.Canvas.FillRect(Rect(xmin,ymin,xmax,ymax));
dir:=ymax div 2;
(*Сегодня я ездил в Диспансер.*)

//Тут будет что-то ещё дорабатываться

}

end.

Другие статьи в литературном дневнике:

• 10.05.2026. Вчера На Дворцовой...
• 09.05.2026. Богатые Евреи помогают не только Евреям...
• 08.05.2026. 1989 год. - 2026 год.
• 07.05.2026. Metall Shark Hacker s Groupe
• 06.05.2026. Иван Сергеевич Ватаев
• 05.05.2026. ***
• 04.05.2026. Прогулка с Кимычем по Проспекту Славы...
• 03.05.2026. Apache longbow - 64h uh-64
• 02.05.2026. ***
• 01.05.2026. ***